查找数据框的补码（反连接）

尝试从anti_joindplyr

library(dplyr)
anti_join(df, df1, by='heads')

尝试该命令并使用%in%!

df[!df$heads %in% df1$heads,]

你也可以用s二进制连接做某种类型的反连接data.table

library(data.table)
setkey(setDT(df), heads)[!df1]
#    heads
# 1:  row1
# 2:  row2
# 3:  row4

---

编辑：从 data.table v1.9.6+ 开始，我们可以在使用on

setDT(df)[!df1, on = "heads"]

---

编辑2：引入了启动 data.table v1.9.8+，它基本上是上述解决方案的变体，只是在 data.table 的所有列名之上，例如 .如果设置为（默认行为），则仅返回 中的唯一行。对于每个 data.table 中只有一列的情况，以下解决方案将等效于前面的解决方案fsetdiffxx[!y, on = names(x)]allFALSEx

fsetdiff(df, df1, all = TRUE)

另一个选项，使用基本 R 和函数：setdiff

df2 <- data.frame(heads = setdiff(df$heads, df1$heads))

setdiff功能完全符合您的想象;将两个参数作为集合，并从第一个参数中删除第二个参数中的所有项。

我发现 tahtn 更具可读性，并且在我不需要它们时不想需要额外的库，但您使用哪个答案很大程度上取决于个人品味。setdiff%in%

另一种选择是通过操作包的代码来创建函数。negate_match_dfmatch_dfplyr

library(plyr)
negate_match_df <- function (x, y, on = NULL) 
{
if (is.null(on)) {
    on <- intersect(names(x), names(y))
    message("Matching on: ", paste(on, collapse = ", "))
}
keys <- join.keys(x, y, on)
x[!keys$x %in% keys$y, , drop = FALSE]
}

数据

df <- read.table(text ="heads
row1
row2
row3
row4
row5",header=TRUE)

df1 <- read.table(text ="heads
row3
row5",header=TRUE)

输出

negate_match_df(df,df1)

dplyr 也有，可以让你setdiff()

setdiff(bigFrame, smallFrame)获取第一个表中的额外记录。

因此，对于 OP 的示例，代码将读取setdiff(df, df1)

DPLYR 具有许多出色的功能：有关快速简易指南，请参阅此处。

答案很晚，但对于另一种选择，我们可以尝试使用以下软件包进行正式的 SQL 反连接：sqldf

library(sqldf)
sql <- "SELECT t1.heads
        FROM df t1 LEFT JOIN df1 t2
            ON t1.heads = t2.heads
        WHERE t2.heads IS NULL"
df2 <- sqldf(sql)

该包可用于那些使用 SQL 逻辑轻松表述的问题，但使用基本 R 或其他 R 包可能不太容易表述的问题。sqldf