在另一个向量中查找向量元素的索引

Question

这扩展了a previous question I asked。 我有 2 个向量：

a <- c("a","b","c","d","e","d,e","f")
b <- c("a","b","c","d,e","f")

我从a 中创建了b，方法是消除a 中包含在其他以逗号分隔的a 中的元素（例如，a 中的“d”和“e”包含在“d,e”，因此在b 中只表示“d,e”）。

我正在寻找一种在a 和b 的元素索引之间进行映射的有效方法。

具体来说，我想要一个b 的长度列表，其中每个元素都是一个向量，其中a 中的元素的索引映射到该b 元素。

对于这个例子，输出应该是：

list(1, 2, 3, c(4,5,6), 7)

Answer 1

从my answer at your previous question修改轻微，试试：

a <- c("a","b","c","d","e","d,e","f")
b <- c("a","b","c","d,e","f")
B <- setNames(lapply(b, gsub, pattern = ",", replacement = "|"), seq_along(b))

lapply(B, function(x) which(grepl(x, a)))
# $`1`
# [1] 1
# 
# $`2`
# [1] 2
# 
# $`3`
# [1] 3
# 
# $`4`
# [1] 4 5 6
# 
# $`5`
# [1] 7