在data.frame中匹配多个变量

Question

取一些简单的数据

A <- 1:10
B <- 100:109
C <- 222:231
df1 <- data.frame(A,B,C)
df1$Z <- 1:length(A)

D <- c(2,3,4,6)
E <- c(101,202,104,105)
Ff <- c(223,999,225,227)
df2 <- data.frame(D,E,Ff)

现在我想创建df2$Z ，当A == D且B == E和C == Ff时分配df1 $ D值，否则应用NA

我尝试此代码，但是语法不正确：

df2$Z <- df1$Z[match(df1$A & df2$D & df1$B & df2$E & df1$C & df2$Ff)]

Answer 1

使用data.table我会做类似的事情

library(data.table)
setkey(setDT(df2))[df1, Z := i.Z]
df2
#    D   E  Ff  Z
# 1: 2 101 223  2
# 2: 3 202 999 NA
# 3: 4 104 225 NA
# 4: 6 105 227  6

请注意，我们尚未在df1上设置键列，因此df1是在df2键列与df1的前3列之间执行的（即按位置）。 如果不能始终保证列顺序，则也可以在相应列的df1上设置键。

---

完全不需要设置键的另一种方法（需要重新排序data.tables，这并不总是很理想）是使用新实现的on=参数（在CRAN的最新版本-1.9.6中可用）：

library(data.table) # V 1.9.6+
setDT(df2)[df1, Z := i.Z, on = c(D = "A", E = "B", Ff = "C")]
df2
#    D   E  Ff  Z
# 1: 2 101 223  2
# 2: 3 202 999 NA
# 3: 4 104 225 NA
# 4: 6 105 227  6

Answer 2

左联接很容易

library(dplyr)
final <- df2 %>% 
  left_join(df1, by = c("D" = "A", "E" = "B", "Ff" = "C")) %>% 
  select(-D, D = D.y)

tmp将包含来自原始df2 D和来自df1 Dy 。 select(-D)删除D ， select(D = Dy)将Dy重命名为D select(-D, D = Dy)首先删除D ，然后将Dy删除为D ，得到所需的结果。

tmp <- df2 %>% 
  left_join(df1, by = c("D" = "A", "E" = "B", "Ff" = "C"))

Answer 3

您可以执行的Base R列的顺序必须相同：

x = apply(df2,1,paste0, collapse='')
y = apply(df1[1:3],1, paste0, collapse='')

df2$Z = df1$Z[match(x,y)]

#  D   E  Ff  Z
#1 2 101 223  2
#2 3 202 999 NA
#3 4 104 225 NA
#4 6 105 227  6