r - 将 dplyr summarise_each() 与 is.na() 一起使用

Question

我试图将一些 dplyr 魔法包装在一个函数中以生成一个 data.frame，然后我用 xtable 打印它。

最终目标是拥有 this 的 dplyr 版本工作和阅读我遇到了非常有用的 summarise_each()用 regroup() 进行子集化后的函数(因为这是在一个函数内)然后我可以使用它来解析所有列。

我遇到的问题(到目前为止)是调用 is.na()从内部 summarise_each(funs(is.na))据我所知 Error: expecting a single value .

我故意不发布我的函数，但下面是一个最小的例子(注意 - 这使用 group_by() 而在我的函数中我用 regroup() 替换它)...

library(dplyr)
library(magrittr)
> t <- data.frame(grp = rbinom(10, 1, 0.5),
                a = as.factor(round(rnorm(10))),
                b = rnorm(10),
                c = rnorm(10))
t %>%
group_by(grp) %>%  ## This is replaced with regroup() in my function
summarise_each(funs(is.na))
Error: expecting a single value

运行这个失败了，它调用了 is.na()这就是问题所在，因为如果我改为计算每个中的观察次数(需要得出缺失的比例)，它会起作用......

> t %>%
group_by(grp) %>%  ## This is replaced with regroup() in my function
summarise_each(funs(length))
Source: local data frame [2 x 4]

  grp a b c
1   0 8 8 8
2   1 2 2 2

但真正的问题是我不需要 is.na()在每一列内，但 sum(is.na())根据链接的例子，我真正想要的是......

> t %>%
group_by(grp) %>%  ## This is replaced with regroup() in my function
summarise_each(funs(propmiss = sum(is.na) / length))

但问题是 sum(is.na)不像我期望的那样工作(可能是因为我的期望是错误的!)...

> t %>%
group_by(grp) %>%  ## This is replaced with regroup() in my function
summarise_each(funs(nmiss = sum(is.na)))
Error in sum(.Primitive("is.na")) : invalid 'type' (builtin) of argument

我试着打电话 is.na()明确使用括号，但这也会返回错误...

> t %>%
+ group_by(grp) %>%  ## This is replaced with regroup() in my function
+ summarise_each(funs(nmiss      = sum(is.na())))
Error in is.na() : 0 arguments passed to 'is.na' which requires 1

任何建议或指向文档的指针将不胜感激。

谢谢，

松弛线

Answer 1

这是一种可能性，在一个包含一些 NA 的小数据集上进行了测试。 :

df <- data.frame(a = rep(1:2, each = 3),
                 b = c(1, 1, NA, 1, NA, NA),
                 c = c(1, 1, 1, NA, NA, NA))

df
#   a  b  c
# 1 1  1  1
# 2 1  1  1
# 3 1 NA  1
# 4 2  1 NA
# 5 2 NA NA
# 6 2 NA NA


df %>% 
  group_by(a) %>%
  summarise_each(funs(sum(is.na(.)) / length(.)))
#   a         b c
# 1 1 0.3333333 0
# 2 2 0.6666667 1

并且因为您要求提供指向文档的指针: .指每条数据，在一些 中使用示例 在 ?summarize_each .它在 中有描述参数 ?funs的部分作为“虚拟参数”，并使用 示例 . .在 中也有简要描述参数 ?do的部分: " ... 您可以使用 . 来引用当前组"