如何在R中删除name列不遵循「1,2,3,4」序列的数据行？

你可以通过识别并保留包含完整1→2→3→4序列的分组来实现需求，以下提供两种适合新手的方案：

方案一：使用tidyverse（推荐，代码更直观） #

先加载tidyverse包（未安装的话先运行install.packages("tidyverse")）：

library(tidyverse)

# 处理数据：标记分组并过滤完整序列
splits_clean <- splits_level %>%
  # 标记每个完整序列的分组（当name为1且前一行不是4时，开启新分组）
  mutate(group = cumsum(name == "1" & lag(name, default = "0") != "4")) %>%
  # 按分组检查是否包含全部1、2、3、4
  group_by(group) %>%
  filter(all(c("1", "2", "3", "4") %in% name)) %>%
  ungroup() %>%
  # 移除辅助用的group列
  select(-group)

代码说明： #

1. mutate(group = ...)：给每一段连续的序列分配唯一分组ID，比如从1开始到4结束的一段为一个分组。
2. group_by(group) + filter(all(...))：只保留包含1、2、3、4所有值的分组，自动剔除只有1,2,3的不完整序列。
3. select(-group)：清理掉用于分组的辅助列，得到干净的结果。

方案二：使用Base R（无需额外安装包） #

如果不想加载第三方包，可以用原生R代码实现：

# 标记每个完整序列的起始行位置
group_starts <- which(splits_level$name == "1" & c("0", splits_level$name[-nrow(splits_level)]) != "4")
# 给每一行分配对应的分组ID
group_ids <- findInterval(1:nrow(splits_level), group_starts)
# 筛选出包含全部1、2、3、4的分组
valid_groups <- tapply(splits_level$name, group_ids, function(x) all(c("1","2","3","4") %in% x))
# 提取保留的行
splits_clean <- splits_level[valid_groups[group_ids], ]

代码说明： #

1. group_starts：找到每个完整序列的起始点（即name为1且上一行不是4的位置）。
2. group_ids：给每行分配对应的分组编号。
3. valid_groups：检查每个分组是否包含全部四个目标值。
4. 最后通过索引筛选出需要保留的行。

运行任意一种方案后，splits_clean就是你需要的只包含完整1,2,3,4序列的数据集。

内容的提问来源于stack exchange，提问作者emily20wood