我有一个data.table
DT
如下。
DT <- structure(list(ID = c("Bats", "HL", "JL", "Spidey", "Supes",
"X"), List1 = c("Morrison, Brubaker, Daniel, Loeb", "David, Bryne, Lee",
"", "Loeb, Lee", "Moore, Siegel, Millar", "Bendis, Whendon"),
List2 = c("Rucka, Kane, Morrison", "Lee, Mantlo, Bryne",
"Meltzer, Sekowsky, Morrison", "Waid, Yost, Kirby, Lee",
"", "Claremont, Whendon, Morrison")), .Names = c("ID", "List1",
"List2"), row.names = c(NA, -6L), class = c("data.table", "data.frame"
), .internal.selfref = NULL, sorted = "ID")
DT
ID List1 List2
1: Bats Morrison, Brubaker, Daniel, Loeb Rucka, Kane, Morrison
2: HL David, Bryne, Lee Lee, Mantlo, Bryne
3: JL Meltzer, Sekowsky, Morrison
4: Spidey Loeb, Lee Waid, Yost, Kirby, Lee
5: Supes Moore, Siegel, Millar
6: X Bendis, Whendon Claremont, Whendon, Morrison
我想这两个列表行,逐列合并DT$List1
和DT$List2
在一起,没有重复。
我可以apply
按照以下方式进行操作。
DT$merged <- apply(DT,1,function(vec){
paste(unique(strsplit(paste(vec[2],vec[3],sep=", "),", ")[[1]]),collapse=", ")
})
DT
ID List1 List2
1: Bats Morrison, Brubaker, Daniel, Loeb Rucka, Kane, Morrison
2: HL David, Bryne, Lee Lee, Mantlo, Bryne
3: JL Meltzer, Sekowsky, Morrison
4: Spidey Loeb, Lee Waid, Yost, Kirby, Lee
5: Supes Moore, Siegel, Millar
6: X Bendis, Whendon Claremont, Whendon, Morrison
merged
1: Morrison, Brubaker, Daniel, Loeb, Rucka, Kane
2: David, Bryne, Lee, Mantlo
3: , Meltzer, Sekowsky, Morrison
4: Loeb, Lee, Waid, Yost, Kirby
5: Moore, Siegel, Millar
6: Bendis, Whendon, Claremont, Morrison
如何避免data.table
由于空白单元格而在开头和结尾都没有“,”而有效地获得相同的结果?
DT[, merged := toString(unique(c(strsplit(List1, split = ", ")[[1]],
strsplit(List2, split = ", ")[[1]]))), by = ID][]
# ID List1 List2
#1: Bats Morrison, Brubaker, Daniel, Loeb Rucka, Kane, Morrison
#2: HL David, Bryne, Lee Lee, Mantlo, Bryne
#3: JL Meltzer, Sekowsky, Morrison
#4: Spidey Loeb, Lee Waid, Yost, Kirby, Lee
#5: Supes Moore, Siegel, Millar
#6: X Bendis, Whendon Claremont, Whendon, Morrison
# merged
#1: Morrison, Brubaker, Daniel, Loeb, Rucka, Kane
#2: David, Bryne, Lee, Mantlo
#3: Meltzer, Sekowsky, Morrison
#4: Loeb, Lee, Waid, Yost, Kirby
#5: Moore, Siegel, Millar
#6: Bendis, Whendon, Claremont, Morrison
1:nrow(DT)
如果您的ID
栏目不唯一,请用替换“ by” 。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句