将向量列表列表转换为 R 中的数据框

Question

这是关于在 R 中转换列表。

我的数据如下：

>data = list(list(c('a', 'b'), c('c', 'd')), list(c('a', 'b', 'c'), c('d', 'e', 'f'), c('g', 'h', 'i')))
>data
[[1]]
[[1]][[1]]
[1] "a" "b"

[[1]][[2]]
[1] "c" "d"


[[2]]
[[2]][[1]]
[1] "a" "b" "c"

[[2]][[2]]
[1] "d" "e" "f"

[[2]][[3]]
[1] "g" "h" "i"

我想连接子列表的每个向量，例如paste("a", "b") = "a b")，这样整个列表就可以转换成一个数据框，如下所示：

> df <- data.frame(col1 = c("a b", "c d", NA), col2 = c("a b c", "d e f", "g h i"))
> df
  col1  col2
1  a b a b c
2  d e d e f
3 <NA> g h i

我现在尝试使用 R 中的 apply-functions 解决这个问题，但这真的不是我的领域...提前感谢您的帮助！

Answer 1

这里有一些东西。我们使用了来自data.tabletranspose()和setDF()的两个辅助函数。

library(data.table)
nrs <- max(lengths(data))

df <- setDF(
  lapply(lapply(data, transpose), function(x) do.call(paste, x)[1:nrs])
)
df
#     V1    V2
# 1  a b a b c
# 2  c d d e f
# 3 <NA> g h i

编辑：

无依赖解决方案：

as.data.frame(sapply(data, function(x) sapply(x, paste, collapse = " ")[1:nrs]))