将列表转换为一行data.frame

Question

我有一个这样的列表:

arg0 <- list(code = "a", n = rep(10, 3))

列表中的对象数是可变的.列表的对象是向量 - 只有一维对象.

我想创建一个过程将列表转换为一行data.frame,如下所示:

> data.frame(code = "a", n.1 = 10, n.2 = 10, n.3 = 10)
  code n.1 n.2 n.3
1    a  10  10  10

我目前有这个解决方案:

a <- stack(arg0)
b <- data.frame(t(a[,1]))
names(b) <- a[,2]
b <- data.frame(b)

b几乎我想要实现的结果在哪里:

> b
  code  n n.1 n.2
1    a 10  10  10

两个问题:

1. 是否有更优雅的方式来实现结果？
2. 你知道如何获得重复的同名的编号c(n.1, n.2, n.3)吗？

Answer 1

这是一种方式:

data.frame(t(unlist(arg0)))
#   code n1 n2 n3
# 1    a 10 10 10

Answer 2

如果要保留列表对象的不同数据类型,可以使用以下命令:

data.frame(lapply(arg0, function(x) t(data.frame(x))))

输出:

  code n.1 n.2 n.3
x    a  10  10  10

第二列到第四列中的值仍为数字.