时间戳

首页 > 解决方案 > summarise_all，计数 n() 失败

r - summarise_all，计数 n() 失败

问题描述

我有以下数据框：

df2 <- 
  structure(list(A = c(4, 5, 3, 3, 4, 4, 4, 5, 5, 4), 
             B = c(4, 5, 4, 4, 4, 4, 3, 5, 5, 4),
             C = c(4, 5, 3, 4, 2, 4, 2, 5, 5, 4),
             D = c(4, 5, 0, 0, 1, 4, 0, 0, 0, 0), 
             E = c(4, 5, 4, 4, 4, 4, 2, 5, 5, 5), 
             F = c(5, 5, 4, 4, 4, 4, 2, 5, 4), 
             G = c(5, 5, 4, 4, 2, 4, 2, 5, 5, 5), 
             H = c(5, 5, 4, 4, 3, 4, 3, 5, 5, 4), 
             K = c(5, 5, 4, 4, 3, 4, 2, 5, 5, 5), 
             L = c(5, 5, 4, 4, 3, 4, 2, 5, 5, 5)), 
        .Names = c("A", "B", "C", "D", "E", "F", "G", "H", "K", "L"), 
        row.names = c(NA, -10L), 
        class = c("tbl_df", "tbl", "data.frame"))

在此处输入图像描述

但是当我这样做时，不考虑“NA”：

library(dplyr)
library(tidyr)

df2 %>% gather(Type) %>% group_by(Type) %>% summarise_all(funs(mean(., na.rm = TRUE), sd(., na.rm = TRUE), n(),n1 = sum(!is.na(.)), n2 = sum(is.na(.))))

不考虑 NA 的结果：

在此处输入图像描述

“n()”、sum(!is.na(.) 或 sum(is.na(.)) 都没有得到正确的结果（我知道最后两个是相反的，只是为了确定。

标签： rdplyrtidyr

解决方案

@ANG

谢谢，这可以解决问题，并且还显示了我在哪里走错了路。为了“更好”地工作，我在一个小子集上开发了查询，即我在问题中发布的那个。那个没有“自然”的 NA，我只是取出了一个值，并没有像 ANG 建议的那样用 NA 替换 ist。

在对完整数据运行查询后，我得到了我需要的东西！

感谢您指出！

推荐阅读