基于列和 rbind 匹配合并数据帧

Question

我有两个数据框：

df <- data.frame(x=c("a","c"), y=c("111","222"))

df1 <- data.frame(x=c("a","b","b","c"), y=c("111","222","111","222"),z=c('xxx','yyy','ddd','ttt'))

我想基于列 x 合并这两个数据帧，这样一来，来自 df1 的匹配行应该作为行添加到 df 中，现在作为列添加，因为传统上合并函数在列上连接数据帧。 生成的数据框应如下所示：

X  Y   Z
a 111 <NA>
a 111 xxx
c 222 <NA>
c 222 ttt

我知道它可以通过 for 循环来完成，但我想知道是否可以通过一行/两行代码而不是编写多个 for 循环。

Answer 1

---

基本R选项：

# Add missing column to df
df[setdiff(names(df1), names(df))] <- NA
# rbind only rows matching on x
rbind(df, df1[df1$x %in% df$x,])
   x   y    z
1  a 111 <NA>
2  c 222 <NA>
11 a 111  xxx
4  c 222  ttt

---

一个dplyr选项：

library(dplyr)
bind_rows(df, filter(df1, x %in% df$x))
  x   y    z
1 a 111 <NA>
2 c 222 <NA>
3 a 111  xxx
4 c 222  ttt

---

一个data.table选项：

library(data.table)
setDT(df)
setDT(df1)
rbind(df, df1[x %in% df$x], fill = TRUE)
   x   y    z
1: a 111 <NA>
2: c 222 <NA>
3: a 111  xxx
4: c 222  ttt

Answer 2

library(dplyr)

df1 %>%
    semi_join(df, by = "x") %>%
    bind_rows(df)

  x   y    z
1 a 111  xxx
2 c 222  ttt
3 a 111 <NA>
4 c 222 <NA>