R/Shiny：最大输出不正确

Question

我试图使用约翰霍普金斯大学的数据找出 COVID 之前死亡人数最多的五个国家。

我的代码：

    df_test <- df %>%
        group_by(region) %>%
        summarise(death = max(death)) %>%
        arrange(desc(death)) %>%
        top_n(5)

应该是美国、巴西、印度、墨西哥、英国我得到巴西、印度、墨西哥、英国、意大利

有谁知道哪里出了问题？提前致谢！

编辑：此外，运行宁我教授的数据集，当我运行 max(df$death)

时，最大值显示为“NA”

Answer 1

在max()函数中使用na.rm=TRUE

library(dplyr)
df <- data.frame(region = c('A', 'A', 'B' ,'C', 'A' ,'B','C','C'),
                 death = c(8,NA,6,7,9,5,4,6),
                 stringsAsFactors = FALSE)


df %>% group_by(region) %>%
  summarise(death = max(death,na.rm = TRUE)) %>%
  arrange(desc(death)) %>%
  top_n(2)

# A tibble: 2 x 2
  region death
  <chr>  <dbl>
1 A          9
2 C          7

R/Shiny：最大输出不正确

R/Shiny: Max Output Not Correct

r

max