在 R 数据框中按组查找每列中非缺失值的数量。
要在R数据框中按组查找每列中非缺失值的数量，我们可以使用dplyr包的summarise_each函数与函数求反is.na。
例如，如果我们有一个名为df的数据框，其中包含一个分组列G和其他一些具有很少NA的列，那么我们可以通过在以下命令的帮助下对G列进行分组来找到每列中非缺失值的数量-
df%%group_by(G)%%summarise_each(funs(sum(!is.na(.))))
示例1
以下代码段创建了一个示例数据框-
Group<-sample(LETTERS[1:4],20,replace=TRUE) x1<-sample(c(NA,1,2),20,replace=TRUE) x2<-sample(c(NA,round(rnorm(3),2)),20,replace=TRUE) df1<-data.frame(Group,x1,x2) df1
创建了以下数据框
Group x1 x2 1 C 2 -0.49 2 B 1 1.86 3 A NA NA 4 A NA NA 5 D 1 1.12 6 A NA 1.12 7 B 1 1.86 8 C 1 -0.49 9 D 2 NA 10 A NA 1.12 11 A NA 1.12 12 C NA 1.86 13 A 2 -0.49 14 A 1 -0.49 15 C NA NA 16 C NA 1.86 17 A NA 1.12 18 D 2 -0.49 19 C 2 1.86 20 C 2 NA
要加载dplyr包并在上面创建的数据框中按df1中的Group列查找每列中非缺失值的数量，请将以下代码添加到上述代码段中-
Group<-sample(LETTERS[1:4],20,replace=TRUE) x1<-sample(c(NA,1,2),20,replace=TRUE) x2<-sample(c(NA,round(rnorm(3),2)),20,replace=TRUE) df1<-data.frame(Group,x1,x2) library(dplyr) df1%%group_by(Group)%%summarise_each(funs(sum(!is.na(.)))) # A tibble: 4 x 3输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
Group x1 x2 <chr <int <int 1 A 2 6 2 B 2 2 3 C 4 5 4 D 3 2
示例2
以下代码段创建了一个示例数据框-
Class<-sample(c("I","II","III"),20,replace=TRUE)
Score<-sample(c(NA,1:5),20,replace=TRUE)
Rank<-sample(c(NA,0:2),20,replace=TRUE)
df2<-data.frame(Class,Score,Rank)
df2创建了以下数据框
Class Score Rank 1 II NA NA 2 III 5 2 3 II 5 2 4 II 4 NA 5 II NA NA 6 II 4 2 7 II 2 1 8 III 4 2 9 II 2 NA 10 III NA 0 11 I 1 2 12 II NA NA 13 I 2 1 14 I 5 NA 15 I 3 0 16 I 4 0 17 I 3 2 18 II 2 NA 19 II 2 NA 20 II 2 1
要在上面创建的数据框中按df2中的Class列查找每列中非缺失值的数量，请将以下代码添加到上述代码段中-
Class<-sample(c("I","II","III"),20,replace=TRUE)
Score<-sample(c(NA,1:5),20,replace=TRUE)
Rank<-sample(c(NA,0:2),20,replace=TRUE)
df2<-data.frame(Class,Score,Rank)
df2%%group_by(Class)%%summarise_each(funs(sum(!is.na(.))))
# A tibble: 3 x 3输出结果如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
Class Score Rank <chr <int <int 1 I 6 5 2 II 8 4 3 III 2 3