Удалить значения NA с группой - PullRequest
Новая
       11

Удалить значения NA с группой

0 голосов
/ 05 мая 2018

Вот мой пример: 

mydf <- data.frame('col_1'=c('A','A','B','B','C','C','D','D'), 'col_2'=c(100,NA,90,30,50,60,10,NA))

      col_1 col_2
  1     A   100
  2     A    NA
  3     B    90
  4     B    30
  5     C    50
  6     C    60
  7     D    10
  8     D    NA

Я хотел бы удалить значения NA, сгруппированные по col_1, чтобы получить результат ниже. 

      col_1 col_2
  1     B    90
  2     B    30
  3     C    50
  4     C    60

Как я могу это сделать?

1 Ответ

0 голосов
/ 05 мая 2018

Мы можем сгруппировать по 'col_1' и затем filter по 'col_2', у которых нет 'NA' 

library(dplyr)
mydf %>% 
   group_by(col_1) %>%
   filter(!any(is.na(col_2)))

Или сделать это с all

mydf %>%
   group_by(col_1) %>%
   filter(all(!is.na(col_2)))

Или это можно сделать с помощью base R

subset(mydf, col_1 %in% names(which(!rowsum(+(is.na(col_2)),
              group = col_1)[,1])))
...