r - 是否有一个很好的 R 函数来分隔两个数据帧之间的唯一列值，保留行？

Question

基本上我有 2 个具有这种基本结构的数据框:


第 1 列
Col2
第 3 列
Col4


啊啊啊啊
12
xxx
32b

铁
21
xxx
14楼

种子
12
xxx
54b

韦斯
95
xxx
54r

rtf
44
xxx
99q

fvg
87
xxx
55h


因此，第 1 列中的某些值在两个数据框中重复，我想创建一个新数据框，其中每个数据框的 Col1 中只有具有唯一值的行，因此在伪代码中:
Unique_to_df1 <- df1[Unique_Function(查找 Col1 值不在 df2 中的行)]
Unique_to_df2 <- df2[Unique_Function(查找 Col1 值不在 df1 中的行)]
我尝试了一些函数，但它们似乎都只导出 Col1 的唯一值，而不是整个表，或者似乎只适用于从一个数据框中删除重复值，而不是在两者之间进行比较。任何帮助/建议将不胜感激!

Answer 1

您可以使用 setdiff为每个数据帧在 Col1 中选择具有唯一值的行。

x[x$Col1 %in% setdiff(x$Col1, y$Col1),]
#x[!x$Col1 %in% intersect(x$Col1, y$Col1),] #Alternative
#  Col1 Col2 Col3 Col4
#1  aaa   12  xxx  32b

y[y$Col1 %in% setdiff(y$Col1, x$Col1),]
#  Col1 Col2 Col3 Col4
#1  bbb   12  xxx  32b

数据:

x <- read.table(header=TRUE, text="Col1     Col2    Col3    Col4
aaa     12  xxx     32b
tfe     21  xxx     14f
eed     12  xxx     54b
wes     95  xxx     54r
rtf     44  xxx     99q
fvg     87  xxx     55h")
y <- x
y[1,1] <- "bbb"