Question

一些示例数据

 List1 = list("Jake009", "Sarah0390", "Tom_338", "Philip-478")
 List2 = list("Jake__98", "Sarah//43", "Brett-49")

我想删除列表2中列表2中没有匹配项的所有项目。

因此，代码需要在两个列表中检查每个字符串，直到第一个非字母字符（例如，＆＃34; Jake＆＃34;）并查看另一个列表中是否存在匹配。如果没有，请将其从列表中删除。

目标：

 List1 = "Jake009", "Sarah0390"
 List2 = "Jake__98", "Sarah//43"

Answer 1

我们在sub中删除了lists的非字母字符，并使用%in%来获取元素相对于其他元素的逻辑索引。

v1 <- sub('[^A-Za-z]+$', '', unlist(List1))
v2 <-  sub('[^A-Za-z]+$', '', unlist(List2))
List1[v1 %in% v2]
#[[1]]
#[1] "Jake009"

#[[2]]
#[1] "Sarah0390"

List2[v2 %in% v1]
#[[1]]
#[1] "Jake__98"

#[[2]]
#[1] "Sarah//43"

或按@Frank

的建议使用intersect

vv1 <- setNames(List1,v1)
vv2 <- setNames(List2,v2)
both <- intersect(names(vv1),names(vv2))
vv1[both]
vv2[both]

如果未在列表之间共享，则从列表中删除项

1 个答案: