如何將表條目與R中第二個表的列表條目進行匹配？

Question

我有兩個表，table1有一列字符串。我想查找另一個表table2中每個字符串的匹配項，但是在相應的table2列中，每個單元格包含每個行條目的列表。

到目前爲止，我已經想通了如何使用grepl以匹配特定的條目：

grepl(table1$label[i],table2$labels[[j]][k]) 

一些I，J和K。 i和j是固定的，因爲它們分別是表1和表2的行數，但k是一些積極的價值，所以我有這樣的事情：

for (i in 1:nrow(table1)){ 
    for (j in 1:nrow(table2){ 
    for(k ?){ 
    grepl(table1$label[i],table2$labels[[j]][k]) 
    } 
    } 
} 

我真的不知道要放什麼東西爲k循環。

我確定包含table1字符串的table2行後，我想要做的是從不同的table2列報告相應的值並將它們追加到table1中相應的字符串行，所以我猜測我將需要更多的循環......有沒有像這樣的多個引用問題的快捷方式？

一些示例數據（注意，也缺少在表2列出了值，但符合這些只是被忽略時，我假設，其他條目是字符類）：

表1

label 
1 Tom  
2 Gemma  
3 Graham  

表2（更新）

 item  labels 
1 Apple  Tom, ,John, ,Terry,  
2 Orange Bryan, ,Graham, 
3 Pear  Finn, ,Gemma, ,Graham, 

輸出

標籤樂1

label item 
1 Tom  Apple 
2 Gemma Pear 
3 Graham Orange, Pear 

---

從使用dput我得到

Table1 <- structure(list(label = c("Tom", "Gemma", "Graham")), .Names = "label", 
class = "data.frame", row.names = c(NA, 
-3L)) 


Table2 <- structure(list(item = c("Apple", "Orange", "Pear"), labels = list(
    structure(c("Tom", "", "John", "", "Terry", ""), .Dim = c(6L, 
    1L)), structure(c("Bryan", "", "Graham", ""), .Dim = c(4L, 
    1L)), structure(c("Finn", "", "Gemma", "", "Graham", ""), .Dim = c(6L, 
    1L)))), .Names = c("item", "labels"), row.names = c(NA, -3L 
), class = "data.frame") 

---

附錄：關於我初次使用的grepl，一些表2中的標籤只有一個部分匹配的標籤在Table1中，但名稱在Table1中是唯一的，所以我想將Table1標籤（例如Graham（Table1））與Graham（表2）和Graham Green（表2）例如

表2（版本2）

 item  labels 
1 Apple  Tom, ,John, ,Terry,  
2 Orange Bryan, ,Graham, 
3 Pear  Finn, ,Gemma, ,Graham Green, 

輸出表1將是相同的。

Answer 1

下面是一個使用data.table包

library(data.table) 
res <- setDT(Table2)[, list(label = unlist(labels)), by = item] 
setkey(res, label)[Table1, toString(unique(item)), by = .EACHI] 
#  label   item 
# 1: Tom  Apple 
# 2: Gemma   Pear 
# 3: Graham Orange, Pear 

我基本上在這裏做的是Table2每每一個項目拆分labels的嘗試。然後，我已經聚集每次每個標籤的唯一項目，同時進行二值LEFT JOIN回Table1

---

編輯爲您的新Table2您可以修改代碼以

res <- setDT(Table2)[, list(label = unlist(labels)), by = item] 
Table1["item"] <- sapply(Table1$label, function(x) toString(unique(res[grepl(x, label), item]))) 
Table1 
# label   item 
# 1 Tom  Apple 
# 2 Gemma   Pear 
# 3 Graham Orange, Pear 

Answer 2

這裏有一個qdapTools在後端使用data.table的方法。你的數據類型有點模糊。 dput在這裏會很有幫助。

我相信你的數據是基於NA評論

Table1 <- read.table(text=" label 
1 Tom  
2 Gemma  
3 Graham", header=TRUE) 


key <- list(
    Apple = c('Tom', NA, 'John', NA, 'Terry'), 
    Orange = c('Bryan', 'Graham'), 
    Pear = c('Finn', 'Gemma', NA, 'Graham') 
) 

現在查找值：

library(qdapTools) 
Table1[["item"]] <- lapply(Table1[[1]], lookup, key) 

## label   item 
## 1 Tom  Apple 
## 2 Gemma   Pear 
## 3 Graham Orange, Pear 

如果你有一個data.frame然後嘗試：

key2 <- data.frame(x = names(key)) 
key2[["item"]] <- key 

Table1[["item2"]] <- lapply(Table1[[1]], lookup, setNames(as.list(key2[[2]]), key2[[1]])) 

如果該列確實是摺疊/粘貼的矢量：

key2 <- data.frame(x = names(key)) 
key2[["item"]] <- lapply(key, paste, collapse=", ") 
Table1[["item2"]] <- lapply(Table1[[1]], lookup, setNames(strsplit(as.character(key2[[2]]), "\\s*,\\s*"), key2[[1]]))