如何移除R语言数据框列中的非成对值？求解决方案

你的循环报错主要有两个核心问题：

1. 正向遍历到最后一行时，i+1会超出数据框行范围，产生NA值，导致if条件无法判断；
2. df <- df[-df$id[i]]是错误操作——你用了ID的取值而非行号来删除行，且循环中修改数据框会导致后续行号彻底混乱。

更高效的解决方法（推荐用向量化操作，避免循环） #

R是向量化语言，处理这类分组筛选问题，用分组统计的方法比循环更简洁可靠。

方法一：Base R实现

先构造你的示例数据：

df <- data.frame(
  ID = c(1,1,2,3,3,4,4),
  Value = c(4,2,3,4,5,5,2)
)

1. 统计每个ID的出现次数：

id_counts <- table(df$ID)

2. 筛选出出现次数为偶数（或至少2次，可根据需求调整）的ID：

keep_ids <- names(id_counts)[id_counts %% 2 == 0]

3. 保留符合条件的行：

df_clean <- df[df$ID %in% keep_ids, ]

运行后就会移除ID=2的所有行，得到目标结果。

方法二：dplyr包实现（代码更直观）

如果你习惯用tidyverse系列工具，可以用dplyr的分组筛选：

library(dplyr)

df_clean <- df %>%
  group_by(ID) %>%
  filter(n() %% 2 == 0) %>% # 保留出现次数为偶数的ID组
  ungroup()

若非要修复循环（仅适用于ID连续排列的场景） #

因为正向循环修改数据框会导致索引混乱，建议反向遍历：

i <- nrow(df)
while (i >= 1) {
  if (i == 1) {
    # 只剩第一行，直接删除
    df <- df[-i, ]
    i <- i - 1
  } else if (df$ID[i] == df$ID[i-1]) {
    # 当前行和前一行ID相同，跳过这两行
    i <- i - 2
  } else {
    # 当前行无配对，删除
    df <- df[-i, ]
    i <- i - 1
  }
}

注意：这个方法仅适用于ID连续出现的场景，如果ID是乱序的，会出现错误，因此更推荐前面的向量化方法。

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