如何创建一个表，其中第一个表中的行也匹配 R 中第二个表的行中的 3 列答案

【问题标题】：How do I create a table with rows from a first table that also matches 3 columns in the row of a second table in R如何创建一个表，其中第一个表中的行也匹配 R 中第二个表的行中的 3 列
【发布时间】：2020-04-27 04:51:58
【问题描述】：

我需要创建第三个表 (df3)，其中第一个表 (df1) 的行与第二个表 (df2) 中 5 列中的三个的行值匹配。两个起始表 df1 和 df2 的行数不同。

例子：

              df1                                                  df2 
chain   freq   color  length  type1  type2       chain   freq    color  length  type1  type2
AC       24     red    100      C      V2         BD      45      blue   73      C      G5
BD       57     green   87      C      G5         YJ      57      green  78      N      Y6
OP       83     yellow  68      R      Q9         TP       8      orange 98      Y      P2
TP       28     blue    74      Y      P2         HP      50      white  87      A      U9
HP       23     yellow  39      A      U9         ZS      87      red    98      P      N8
                                                  XC       8      green  98      T      N8

结果表中 df1 中的行与 df2 中的 chain、type1 和 type2 列相匹配。在这个例子中，它看起来像这样：

          df3                                
chain   freq    color  length  type1  type2
BD       57     green   87      C      G5
TP       28     blue    74      Y      P2
HP       23     yellow  39      A      U9

我正在尝试尽可能避免循环。我一直在查看 dplyr 函数，但我对这个包还不太熟悉。任何想法表示赞赏。

【问题讨论】：

您能否使用dput 显示示例。你可以试试merge 或inner_join

标签： r dataframe

【解决方案1】：

我们可以使用semi_join

library(dplyr)
semi_join(df1, df2, by = c('chain', 'type1', 'type2'))
#   chain freq  color length type1 type2
#1    BD   57  green     87     C    G5
#2    TP   28   blue     74     Y    P2
#3    HP   23 yellow     39     A    U9

数据

df1 <- structure(list(chain = c("AC", "BD", "OP", "TP", "HP"), freq = c(24L, 
57L, 83L, 28L, 23L), color = c("red", "green", "yellow", "blue", 
"yellow"), length = c(100L, 87L, 68L, 74L, 39L), type1 = c("C", 
"C", "R", "Y", "A"), type2 = c("V2", "G5", "Q9", "P2", "U9")), class = "data.frame", row.names = c(NA, 
-5L))

df2 <- structure(list(chain = c("BD", "YJ", "TP", "HP", "ZS", "XC"), 
    freq = c(45L, 57L, 8L, 50L, 87L, 8L), color = c("blue", "green", 
    "orange", "white", "red", "green"), length = c(73L, 78L, 
    98L, 87L, 98L, 98L), type1 = c("C", "N", "Y", "A", "P", "T"
    ), type2 = c("G5", "Y6", "P2", "U9", "N8", "N8")), 
    class = "data.frame", row.names = c(NA, 
-6L))

【讨论】：

不会 semi_join 基本上只是创建第三个只有 3 列的 df 并添加所有行？
@Orion11 它提供与您的输入 df1 相同的数据集，但通过匹配减少了行数
这就是我要找的。让我在我的数据集上试一试。
它似乎工作 akrun，如此简单和优雅。谢谢你。在我对 r 感到满意之前，我还有很长的路要走。
@Orion11 inner_join 也应该可以工作。唯一的问题是您只需要 select 'df2' 中的 by 列