如何删除存在缺失值的组

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如我构造的数据，c 组存在缺失值，如何把整个 c 组都删掉（3行）？

1. data <-
   
2.   tibble(x = rep(c("a", "b", "c"), 3),
   
3.            y = c(1:8, NA)) %>%
   
4.   arrange(x)

复制代码

目前想到的方法是

1. data %>%
   
2.   group_by(x) %>%
   
3.   summarise(Not_NA = ifelse(any(is.na(y)), NA, TRUE)) %>%
   
4.   drop_na() %>%
   
5.   inner_join(data, by = "x") %>%
   
6.   select(-Not_NA)

复制代码

不知道有没有更简单的方法。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：缺失值 range Data 有没有 不知道

如果是tibble的话，可以试试

1. data <-
   
2.   tibble(x = rep(letters[1:5], 3),
   
3.          y = c(NA, 1:8, NA, 2, NA, 3, 4, NA)) %>%
   
4.   arrange(x)
   
5. data %>% anti_join(unique(data[is.na(data[, 2]), 1]),
   
6.                    by = "x")

复制代码

data %>% group_by(x) %>% filter(!is.na(sum(y)))

egen mis = rowmiss(control_name Em Wjrgj_lag two_seperate)
//写明公式看公式变量中的缺失值//
drop if mis
drop mis