r - 如何删除 R 中 2 个或更多行中具有相同值的行

Question

我有以下格式的数据框，其中包含 ID 和 A/B。数据帧很长，超过 3000 个 ID。


ID
类型


1
一种

2
乙

3
一种

4
一种

5
乙

6
一种

7
乙

8
一种

9
乙

10
一种

11
一种

12
一种

13
乙

...
...


我需要删除所有行 (A+B)，其中多个 A 位于另一个或多个之后。所以我不想删除重复项。如果有重复(2 个或更多 A)，我想删除所有 A 和 B，直到下一个 A。


ID
类型


1
一种

2
乙

6
一种

7
乙

8
一种

9
乙

...
...


我需要一个循环来解决这个问题吗？我希望得到任何帮助，谢谢!

Answer 1

这可能是你想要的:
首先，定义一个函数来记录要删除的内容的索引:

row_sequence <- function(value) {
  inds <- which(value == lead(value))  
  sort(unique(c(inds, inds + 1, inds +2)))
}

首先将要删除的行提取到 df1 中，将函数应用于您的数据帧。第二个 anti_join ing df1与 df获取最终数据帧:

library(dplyr)
df1 <- df %>% slice(row_sequence(type))
df2 <- df %>%
  anti_join(., df1)

结果:

df2
  id type
1  1    A
2  2    B
3  6    A
4  7    B
5  8    A
6  9    B

数据:

df <- data.frame(
  id = 1:13,
  type = c("A","B","A","A","B","A","B","A","B","A","A","A","B")
)