Question

我正在尝试通过匹配来自一列或另一列的值，将数据帧的一列中的值添加到另一个数据帧。

例如：

我有2个不同长度的df，而df2没有df1中列出的所有对：

DF1

         Year Territory     Pair_ID
      1  1999       BGD         1 5
      2  2000       TAR         6 2
      3  2001       JAM         3 7
      4  2002       TER         9 2

df2

         ID1 ID2 pair pair1 type detail
      1  1   5   1 5  5 1   PO   N/A
      2  2   6   2 6  6 2   SB   N/A
      3  3   7   3 7  7 3   PO   N/A
      4  4   8   4 8  8 4   SB   N/A
      5  4   3   4 3  3 4   SB   N/A

我想要这个：

         Year Territory     Pair_ID  type
      1  1999       BGD         1 5   PO
      2  2000       TAR         6 2   SB
      3  2001       JAM         3 7   PO
      4  2002       TER         9 2   N/A

我不想完全合并2个数据帧。我只想通过将df1中的“Pair”列与df2中的“pair”列或“pair1”列相匹配，将df2中的“type”列添加到df1。我还希望用df2中找不到的对“N / A”填写。

我找不到解决此特定问题的任何内容。

我试过这个：

    df1$type <- df2$type[match(df1$Pairs, c(df2$pair,df2$pair1))]

但它只与“pair”列匹配并忽略“pair1”列。

Answer 1

sqldf的好例子：

library(sqldf)
sqldf("select df1.Year
             ,df1.Territory
             ,df1.Pair_ID
             ,df2.type

         from df1

           left join df2
                  on    df1.Pair_ID = df2.pair
                     or df1.Pair_ID = df2.pair1 
       ")

结果

  Year Territory Pair_ID type
1 1999       BGD     1 5   PO
2 2000       TAR     6 2   SB
3 2001       JAM     3 7   PO
4 2002       TER     9 2 <NA>

Answer 2

尝试类似

的内容

typeA <- df2$type[match(df1$Pairs, df2$pair)]
typeB <- df2$type[match(df1$Pairs, df2$pair1)]
df1$type <- ifelse(is.na(typeA), typeB, typeA)

如何通过匹配R中的一列或另一列来从其他数据框添加列？

2 个答案:

结果