含有各元素的索引向量中的返回列表

Question

我在含有ř重複元件

a<-c("A","A","A","B","B","C","A") 

我想知道的最有效的方式在列表中變換它的向量，其中每個元素是在原來的矢量鍵，並且其位置爲值：

l<-list(A=c(1,2,3,7),B=c(4,5),C=c(6)) 
l 
$A 
[1] 1 2 3 7 
$B 
[1] 4 5 
$C 
[1] 6 

Answer 1

split(seq_along(a), a) 
# $A 
# [1] 1 2 3 7 
# 
# $B 
# [1] 4 5 
# 
# $C 
# [1] 6 

Answer 2

一種可能的解決方案：

mywhich<-function(x){ 
    out<-which(a==x) 
    return(out) 
} 
l <- sapply(unique(a), mywhich)