library(tidyverse)
我被困在应该是如此简单的事情上!使用下面的代码,我要做的就是分组并总结三个“ Var”列。我想要计数和总和(以便我可以创建三个百分比列,因此如果可以在回答中包括一种简便的方法来完成此操作,那么可以加分)。但是,我不想包括NA。使用“ na.rm = TRUE”从总和中删除NA很容易,但是我似乎无法弄清楚在使用dplyr :: summarise_at时如何不将NA包括在计数中(使用n())。
我是否缺少一些简单的东西?
Df%>%group_by(Group)%>%summarise_at(vars(Var1:Var3),funs(n(),sum((.),na.rm=TRUE)))
Group<-c("House","Condo","House","House","House","House","House","Condo")
Var1<-c(0,1,1,NA,1,1,1,0)
Var2<-c(1,1,1,1,0,1,1,1)
Var3<-c(1,1,1,NA,NA,1,1,0)
Df<-data.frame(Group,Var1,Var2,Var3)
我认为您的代码非常接近完成工作。我做了一些细微的更改,并举例说明了如何在同一步骤中包含百分比计算(尽管我不确定您的预期输出)。
library(dplyr)
Df %>%
group_by(Group) %>%
summarise_all(funs(count = sum(!is.na(.)),
sum = sum(.,na.rm=TRUE),
pct = sum(.,na.rm=TRUE)/sum(!is.na(.))))
#> # A tibble: 2 x 10
#> Group Var1_count Var2_count Var3_count Var1_sum Var2_sum Var3_sum
#> <fctr> <int> <int> <int> <dbl> <dbl> <dbl>
#> 1 Condo 2 2 2 1 2 1
#> 2 House 5 6 4 4 5 4
#> # ... with 3 more variables: Var1_pct <dbl>, Var2_pct <dbl>,
#> # Var3_pct <dbl>
我还对所有不是变量的变量使用summarise_all
而不是summarise_at
作为summarise_all
作品group
。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句