向量元素的映射索引

Question

这可能是一个微不足道的问题。

给定一个字符向量，其中一些是重复的：

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

我正在寻找一个高效函数，该函数将为vec 中的每个唯一元素返回它在vec 中出现位置的索引。

我想返回值会是这样的列表：

list(a = c(1,8), b = 2, d = c(3,9), e = c(4,5), f = 6, g = 7)

Answer 1

这里有几个选项：

lapply(setNames(unique(vec),unique(vec)), function(x) which(x == vec) )
# or to avoid setNames and still ensure you get a list:
sapply(unique(vec), function(x) which(x == vec), simplify=FALSE)
# or even better but maybe not as extensible:
split(seq_along(vec),vec)

所有的付出：

$a
[1] 1 8

$b
[1] 2

$d
[1] 3 9

$e
[1] 4 5

$f
[1] 6

$g
[1] 7