删除R

Question

我有以下数据框

group <- c(2,2,2,2,4,4,4,4,5,5,5,5)
D <- c(NA,2,NA,NA,NA,2,3,NA,NA,NA,1,1)
df <- data.frame(group, D)
df
   group  D
1      2 NA
2      2  2
3      2 NA
4      2 NA
5      4 NA
6      4  2
7      4  3
8      4 NA
9      5 NA
10     5 NA
11     5  1
12     5  1

我想只保留包含非连续NA值的组至少一次。在这种情况下，组5将被删除，因为它不包含非连续的NA值，而只包含连续的NA值。第2组和第4组保留，因为它们确实包含非连续的NA值（NA值由非NA值的行分隔）。

因此得到的数据框如下所示：

df2
  group  D
1     2 NA
2     2  2
3     2 NA
4     2 NA
5     4 NA
6     4  2
7     4  3
8     4 NA

任何想法：）？

Answer 1

如何使用每组NA值的索引之间的差异？

library(dplyr)
df %>% group_by(group) %>% filter(any(diff(which(is.na(D))) > 1))

## A tibble: 8 x 2
## Groups:   group [2]
#  group     D
#  <dbl> <dbl>
#1    2.   NA 
#2    2.    2.
#3    2.   NA 
#4    2.   NA 
#5    4.   NA 
#6    4.    2.
#7    4.    3.
#8    4.   NA 

我不确定这会捕获所有潜在的边缘情况，但它似乎适用于给定的示例。