将列表数据转换为数据框。

Question

我有一个列表数据，这是由ODK Aggregate创建的JSON文件生成的。它看起来像这样：

P1 <- list(a01 = 1:11, a02 = letters[1:11], a03 = list(letters), a04 = (1:11)^2)

我想做的是将P1转换为数据框并删除任何嵌套列表（a03）。 以这个简单的例子为例，我们将获得以下作为我们的最终输出。

P1data <- data.frame(a01 = 1:11, a02 = letters[1:11], a04 = (1:11)^2)

感谢您能提供任何帮助！

- Francis Smart

Answer 1

试试这个

as.data.frame(Filter(Negate(is.list), P1))
#    a01 a02 a04
# 1    1   a   1
# 2    2   b   4
# 3    3   c   9
# 4    4   d  16
# 5    5   e  25
# 6    6   f  36
# 7    7   g  49
# 8    8   h  64
# 9    9   i  81
# 10  10   j 100
# 11  11   k 121

- David Arenburg