根据条件组合行并保存其他行（在 R 中）

Question

我有一个关于根据两个条件组合列的问题。

我有两个来自实验的数据集，参与者必须输入代码，回答他们的性别，并记录眼动追踪数据。实验发生了两次（第一次：random1，第二次：random2）。

eye <- c(1000,230,250,400)
gender <- c(1,2,1,2)
code <- c("ABC","DEF","GHI","JKL")
random1 <- data.frame(code,gender,eye)

eye2 <- c(100,250,230,450)
gender2 <- c(1,1,2,2)
code2 <- c("ABC","DEF","JKL","XYZ")
random2 <- data.frame(code2,gender2,eye2)

现在我想合并这两个数据框。对于代码和性别匹配的所有行，应合并行（因此添加列）。这两行的代码和性别变量应分别变为一个（gender3 和 code3），并且眼动追踪数据应拆分为随机 1 的 eye_first 和随机 2 的 eye_second。

对于没有找到与其代码和性别值完美匹配的所有行，应该存在包含所有这些行的新数据集。

#this is what the combined data looks like
gender3 <- c(1,2)
eye_first <- c(1000,400)
eye_second <- c(100, 230)
code3 <- c("ABC", "JKL")
random3 <- data.frame(code3,gender3,eye_first,eye_second)

#this is what the data without match should look like
gender4 <- c(2,1,2)
eye4 <- c(230,250,450)
code4 <- c("DEF","GHI","XYZ")
random4 <- data.frame(code4,gender4,eye4)

非常感谢您的帮助！提前致谢。

Answer 1

为您的 2 个 data.frames 使用相同的列名并使用 merge

random1 <- data.frame(code = code, gender = gender, eye = eye)
random2 <- data.frame(code = code2, gender = gender2, eye = eye2)

df <- merge(random1, random2, by = c("code", "gender"), suffixes = c("_first", "_second"))

对于您的第二个请求，您可以使用来自dplyr 的anti_join

df2 <- merge(random1, random2, by = c("code", "gender"), suffixes = c("_first", "_second"), all = TRUE) # all = TRUE : keep rows with ids that are only in one of the 2 data.frame

library(dplyr)

anti_join(df2, df, by = c("code", "gender"))