R语言中基于多列匹配移除DataFrame中匹配行的问题求助

嘿，我发现你的代码里有两个关键小错误，导致过滤完全没生效，咱们来一步步搞定这个问题！

先说说你代码里的问题 #

1. df2$remove列生成错误：你写了paste(df2$dates, df1$id, sep="-")，这里应该用df2$id而非df1$id——不然df2的匹配字符串全是和df1的id乱拼接的，根本没法和df1的remove列对应上。
2. anti_join调用错误：你传成了anti_join(df1, df1, by = "remove")，第二个参数应该是df2啊！自己和自己反连接当然不会移除任何行。

正确解决方案（分3种，推荐第一种） #

方法1：用dplyr::anti_join（最简洁高效，适合大数据集）

不需要额外生成拼接列，直接指定要匹配的多列（dates和id），anti_join会自动保留df1中不在df2里的行：

library(dplyr)

# 保留你的原始数据生成代码
dates <- rep(seq(as.Date("2004/01/01"), as.Date("2020/12/31"), "days"), each=20)
Animal_id <- rep(1:20, times=length(unique(dates)))
df1 <- data.frame(dates=dates, id=Animal_id)

dates2<-rep(seq(as.Date("2004/01/01"), as.Date("2020/12/31"), "days"), each=2)
Animal_id2<-rep(1:2, times=length(unique(dates2)))
df2<- data.frame(dates=dates2, id=Animal_id2)
df2 <- df2[-4, ]
df2 <- df2[-6, ]

# 核心过滤代码：按dates和id双列匹配
df1_filtered <- anti_join(df1, df2, by = c("dates", "id"))

# 对比维度验证效果
dim(df1)
dim(df1_filtered)

方法2：修复你原来的字符串匹配逻辑

如果坚持想用拼接字符串的方式，先修正remove列的生成：

# 正确生成两个数据集的匹配字符串
df1$remove <- paste(df1$dates, df1$id, sep = "-")
df2$remove <- paste(df2$dates, df2$id, sep = "-")  # 这里改成df2$id！

# 过滤掉匹配的行
df1_filtered <- df1[!(df1$remove %in% df2$remove), ]

# 查看结果
dim(df1_filtered)

方法3：Base R原生实现（无需加载任何包）

用merge找到匹配行，再反选移除：

# 找到df1和df2中匹配的行
matched_rows <- merge(df1, df2, by = c("dates", "id"))
# 生成匹配字符串并过滤
match_strings <- paste(matched_rows$dates, matched_rows$id, sep = "-")
df1_filtered <- df1[!(paste(df1$dates, df1$id, sep = "-") %in% match_strings), ]

小提示 #

对于大规模数据集，方法1的anti_join效率最高，它是dplyr优化过的实现，比手动拼接字符串或循环匹配快很多，完全符合你的需求。

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