分组统计遇上缺失值NA

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位老师好，我想分组求一下a和b列的和及非空值的个数，为什么出现的结果是错误的呢，请问是哪里出问题了呢，谢谢大家

1. df<-data.frame(a=c(1,2,NA,5,6,NA), b=c(1.53,2.45,3.11,NA,4.54,2.45),
   
2.                c=c("a","a","c","c","b","b"),
   
3.                d=c("aa","aa","bb","bb","cc","cc"))
   
4.               
   
5. df
   
6. df%>%group_by(c,d)%>% summarise_each(funs(sum(na.rm = T),'N'=sum(complete.cases=T)),b)

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

df %>% group_by(c,d) %>% summarise_all(sum, na.rm = T)
df %>% group_by(c,d) %>% summarise_all(function(x) sum(!is.na(x)))

cheetahfly 发表于 2019-11-22 22:32
df %>% group_by(c,d) %>% summarise_all(sum, na.rm = T)
df %>% group_by(c,d) %>% summarise_all(funct ...

谢谢老师，但是能把代码合到一起吗？我试了下没成功

df %>%
  group_by(c,d) %>%
  summarise_all(sum, na.rm = T)  %>%
  left_join(df %>%
                 group_by(c,d) %>%
                 summarise_all(function(x) sum(!is.na(x))),
               by = c("c", "d"))

再提供一种方法，参考下

library(tidyverse)
library(rlist)

df %>%
  group_by(c,d) %>%
  nest() %>%
  mutate(dt = list.apply(data,
    function(x) {
      data.frame(
      a_non= sum(!is.na(x$a)),
      a_sum = sum(x$a, na.rm = T),
      b_non= sum(!is.na(x$b)),
      b_sum = sum(x$b, na.rm = T)
    )}
  ))%>%
  select(c,d,dt)%>%
  unnest(cols = c(dt))

嗯嗯，棒极了，谢谢两位老师，我也找到了一种：with(df,aggregate(df[,c('a','b')], by=list(Vc=c,Vd=d),
                  FUN=function(x){c(sum=sum(x,na.rm=T),N=sum(!is.na(x)))}))