如何基于R中的另一个数据框在数据框中创建索引

Question

我正在尝试基于 DF2 在 DF1 中创建索引。在 DF2 中，我有一个名为 ID 的列，我想做的是搜索 DF1$Name，如果它包含来自 DF2$Wine 的值，则将 ID 从 DF2$ID 填充到 DF1$ID。

DF1 = 所有葡萄酒

a <- c("Malbec", "Syrah", "Cabernet Sauvignon", "Merlot")
b <- c(1, 2, 3, 4)
allwines <- data.frame(a, b)

> allwines
                   a b
1             Malbec 1
2              Syrah 2
3 Cabernet Sauvignon 3
4             Merlot 4

DF2 = 葡萄酒

c <- c("Charles Smith", "K Vintners", "K Vintners", "Two Vintners", "K Vintners", "Kerloo", "Betz Family", "Efeste" )
d <- c("Royal City Syrah", "Cattle King Syrah", "Klein Syrah", "Make Haste Cinsault", "The Hidden Syrah", "Stone Tree Malbec", "Le Parrain Cabernet Sauvignon", "Big Papa Cabernet Sauvignon")
wines <- data.frame(c, d)

> wines
              c                             d
1 Charles Smith              Royal City Syrah
2    K Vintners             Cattle King Syrah
3    K Vintners                   Klein Syrah
4  Two Vintners           Make Haste Cinsault
5    K Vintners              The Hidden Syrah
6        Kerloo             Stone Tree Malbec
7   Betz Family Le Parrain Cabernet Sauvignon
8        Efeste   Big Papa Cabernet Sauvignon

期望的输出

> desired
              c                             d ID
1 Charles Smith              Royal City Syrah  2
2    K Vintners             Cattle King Syrah  2
3    K Vintners                   Klein Syrah  2
4  Two Vintners           Make Haste Cinsault NA
5    K Vintners              The Hidden Syrah  2
6        Kerloo             Stone Tree Malbec  1
7   Betz Family Le Parrain Cabernet Sauvignon  3
8        Efeste   Big Papa Cabernet Sauvignon  3

我的尝试刚刚生成了一个充满 NA 的 ID 行。 这个想法是在 wines 行中搜索葡萄酒名称，并将它们与来自 allwines 的葡萄酒进行匹配，例如来自 allwines$a 的 Syrah 将匹配 Wines$d 中的 Royal City Syrah、Cattle King Syrah 和 Klein Syrah

Answer 1

如果名称在 df2$Wine 和 df1$Name 之间完全匹配，您只需加入这些列即可获得所需的内容。

在创建所有 NA 的列表之前，请尝试以下操作：

library(dplyr)
newdf <- left_join(df1, df2, by = c('Name', 'Wine'))

newdf 现在应该包含 df1 中的所有原始行，以及相应的 ID（如果在 df2 中找到）。

当然，这是假设所有内容的格式正确且名称匹配。