在列表中将名称作为矢量列出

Question

从以下列表中获取最快的方法是什么：

 set.seed(1)
 mylist <- list(1:2,1:3,1:4)
 names(mylist) <- sample(LETTERS,3)

 mylist
$J
[1] 1 2

$V
[1] 1 2 3

$Z
[1] 1 2 3 4

到带有包含列表名称的额外向量的列表，即

mylist
$J
[1] 1 2
[2] J J

$V
[1] 1 2 3
[2] V V V
$Z
[1] 1 2 3 4
[2] Z Z Z Z

结果可能同样是数据帧列表。 某种

lapply(mylist, function(x) { data.frame(x=x,y=names(x)})

Answer 1

另外一个选项：

df<-stack(mylist)
split(df, df$ind)

也许stack(mylist)才是您真正需要的吗？

Answer 2

就个人而言，我喜欢@Matthew Plourde对stack的使用

这是使用mapply的选项，可保留原始列表的相同结构

mapply(function(L, N) 
     {names(L) <- rep(N, length(L)); L},   mylist, names(mylist))

结果：

$G
G G 
1 2 

$J
J J J 
1 2 3 

$N
N N N N 
1 2 3 4