在 group_by 之后计算具有 NA 的列

Question

我想计算使用group_by 后具有NA 值的列数。

类似问题一直在问，但计算 NA 总数而不是 NA 列 (group by counting non NA)

数据：

  Spes <- "Year Spec.1 Spec.2 Spec.3 Spec.4
    1      2016   5      NA     NA     5
    2      2016   1      NA     NA     6
    3      2016   6      NA     NA     4
    4      2018   NA     5      5      9
    5      2018   NA     4      7      3
    6      2018   NA     5      2      1
    7      2019   6      NA     NA     NA
    8      2019   4      NA     NA     NA
    9      2019   3      NA     NA     NA"

    Data <- read.table(text=spes, header = TRUE)
    Data$Year <- as.factor(Data$Year)

想要的输出：

2016 2
2018 1
2019 3

我已经尝试了一些东西，这是我目前最好的尝试。我会热衷于dplyr 解决方案。

> Data %>% 
   group_by(Year) %>% 
   summarise_each(colSums(is.na(Data, [2:5])))

Error: Can't create call to non-callable object

我尝试过各种变化，但运气不佳。非常感谢

Answer 1

一个选项可以是group_byYear，检查每列中是否有anyNA 值并计算每个Year 的总和。

library(dplyr)
Data %>%
   group_by(Year) %>%
   summarise_all(~any(is.na(.))) %>%
   mutate(output = rowSums(.[-1])) %>%
   select(Year, output)


# A tibble: 3 x 2
#  Year  output
#  <fct>  <dbl>
#1 2016       2
#2 2018       1
#3 2019       3

---

使用aggregate进行基础R翻译

rowSums(aggregate(.~Year, Data, function(x) 
             any(is.na(x)), na.action = "na.pass")[-1], na.rm = TRUE)
#[1] 2 1 3