如何从DataFrame中移除指定数量的匹配条目

嘿，我明白你的需求了——你不是要把subset里所有匹配whotoremove的行全删掉，而是要对应whotoremove里的条目次数来移除：比如whotoremove里有1条DE和1条FR，那就在subset里各删1条对应的行对吧？下面给你两种实用的R实现方法：

方法1：使用dplyr（tidyverse风格） #

这种方法简洁高效，适合处理较大的数据集：

library(dplyr)

# 第一步：统计whotoremove中每个(id, country)组合需要移除的次数
remove_counts <- whotoremove %>%
  count(id, country, name = "remove_n")

# 第二步：给subset的每个分组添加行号，再过滤掉需要移除的行
result <- subset %>%
  group_by(id, country) %>%
  mutate(row_num = row_number()) %>%  # 给每个(id, country)组内的行编序号
  left_join(remove_counts, by = c("id", "country")) %>%  # 关联移除次数表
  # 保留：要么不属于要移除的组，要么组内行号超过需要移除的次数
  filter(is.na(remove_n) | row_num > remove_n) %>%
  select(-row_num, -remove_n) %>%  # 删掉临时列
  ungroup()

# 查看结果
print(result)

运行后输出的结果是：

# A tibble: 5 × 2
     id country
  <dbl> <chr>  
1     1 CH     
2     1 CH     
3     1 CA     
4     1 DE     
5     1 AT     

方法2：基础R实现（无需额外包） #

如果你不想加载第三方包，这种直观的循环方法也能实现需求：

# 先整理whotoremove的移除需求（这里直接按行逐个处理）
result_base <- subset

for (i in 1:nrow(whotoremove)) {
  # 获取当前要移除的id和country
  target_id <- whotoremove$id[i]
  target_country <- whotoremove$country[i]
  
  # 找到subset中匹配且未被移除的行
  match_indices <- which(result_base$id == target_id & result_base$country == target_country)
  
  # 如果有匹配的行，移除第一个（按出现顺序）
  if (length(match_indices) > 0) {
    result_base <- result_base[-match_indices[1], ]
  }
}

# 查看结果
print(result_base)

这个方法会逐个处理whotoremove里的每一行，每次移除subset中第一个匹配的对应行，完美对应你要的“按次数移除”的要求。

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