如何从名称与值配对的列表构建矩阵

Question

我有一个如下所示的列表：

> l <- list(a=c("a1","a2"), b=c("b1","b2"), c="c1")
> l
$a
[1] "a1" "a2"

$b
[1] "b1" "b2"

$c
[1] "c1"

我想将其转换回矩阵，以便每个值都与相应的名称配对。在此示例中，预期结果是：

     [,1] [,2]
[1,] "a"  "a1"
[2,] "a"  "a2"
[3,] "b"  "b1"
[4,] "b"  "b2"
[5,] "c"  "c1"

实现该目标的最有效方法是什么？

Answer 1

不知道最有效，但使用您的列表：

l <- list(a=c("a1","a2"), b=c("b1","b2"), c="c1")

我们可以使用 sapply() 获取每个组件的长度

lens <- sapply(l, length)

，我们只需代表 l Lens 次数并取消列出 l - 此处在一行中完成：

cbind(rep(names(l), times = sapply(l, length)), unlist(l))

给出所需的输出：

R> cbind(rep(names(l), times = sapply(l, length)), unlist(l))
   [,1] [,2]
a1 "a"  "a1"
a2 "a"  "a2"
b1 "b"  "b1"
b2 "b"  "b2"
c  "c"  "c1"

Answer 2

cbind(rep(names(l), sapply(l, length)), unlist(l))

   [,1] [,2]
a1 "a"  "a1"
a2 "a"  "a2"
b1 "b"  "b1"
b2 "b"  "b2"
c  "c"  "c1"