根据某些条件在数据框中添加一列？ [重复]

Question

这个问题已经在这里有了答案：

• 如何连接（合并）数据框（内部，外部，左侧，右侧） 13个答案

假设以下数据帧：

df <- (data.frame(ID = c("1", "2", "3"),
                               Drink = c("Cola", "Pepsi", "Fanta")))

输出：

     ID  Drink
1     1   Cola        
2     2  Pepsi      
3     3  Fanta

然后，我有另一个看起来像这样的数据框：

df2 <- (data.frame(Drink = c("Cola", "Fanta", "Cola", "Pepsi", "Pepsi")))

     Drink
1     Cola        
2    Fanta
3     Cola
4    Pepsi
5    Pepsi

我想在此数据框中创建一个额外的列，其中包含与该行中指定的任何饮料相对应的ID（基于第一个数据帧（df）中的ID）。 这样结果看起来像这样：

     ID  Drink
1     1   Cola        
2     3  Fanta
3     1   Cola
4     2  Pepsi
5     2  Pepsi

Answer 1

仅使用base R，您可以执行以下操作。
请注意，为了获得df2的原始顺序，您将需要订购df2$Drink ，然后反转该过程。

inx <- order(df2$Drink)
merge(df, df2)[order(inx), 2:1]
#  ID Drink
#1  1  Cola
#3  3 Fanta
#2  1  Cola
#4  2 Pepsi
#5  2 Pepsi

Answer 2

您可以尝试left_join或inner_join从dplyr 。

library(dplyr)

df2 %>% left_join(df, by="Drink")

# Drink ID
# 1  Cola  1
# 2 Fanta  3
# 3  Cola  1
# 4 Pepsi  2
# 5 Pepsi  2