R:替换嵌套列表中的值

Question

假设我们有一个嵌套列表:

test <- list(
  list(a = 1, b = 2, c = NULL),
  list(a = NULL, b = 2, c = 3))

如何更换所有 NULL值，例如 NA保留数据的结构？这样当我尝试从列表中删除数据框时，我不会最终丢失值/结构。如:

data.frame(matrix(unlist(test), nrow = 2, byrow = T))

  X1 X2
1  1  2
2  2  3

所需的输出类似于:

   X1 X2 X3
1  1  2  NA
2  NA 2  3

有一些建议可以这样做:

rbind.fill(lapply(test, function(f) {
  as.data.frame(Filter(Negate(is.null), f))
}))

这并不像我想要的那样矢量化。显然，尺寸和性能是一个问题。想到的一种解决方法是类似地替换所有 NULL 值，因为它可以一次对整个数据帧完成。然后 unlist()和 matrix()列表。

我不确定性能上的 yield (如果有的话)。也许好老 lapply()不是那么糟糕。

Answer 1

我们可以使用 stri_list2matrix

library(stringi)
m1 <- matrix(as.numeric(t(sapply(test, stri_list2matrix))), ncol=3)
m1
#    [,1] [,2] [,3]
#[1,]    1    2   NA
#[2,]   NA    2    3

这可以转换为 data.frame

as.data.frame(m1)