如何在使用Dplyr的Group_by和Summarise_at时使用na.rm = TRUE和n()

Question

library(tidyverse) 

我坚持做一些应该这么简单的事情!使用下面的代码,我想要做的就是对三个"Var"列进行分组和汇总.我想要数和总和(这样我就可以创建三个百分比的列,如果你可以在你的答案中包含一个简单的方法来实现这一点,那么奖励).但是,我不想包括NA.使用"na.rm = TRUE"可以很容易地从sum中删除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)

Answer 1

我认为你的代码非常接近于完成工作.我做了一些细微的更改,并且包含了一个示例,说明如何在同一步骤中包含百分比计算(尽管我不确定您的预期输出).

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变量的工作.