R：合并包含向量和标量的列表

Question

我有 N 列表，它们有一些相同的列名。这是一个包含两个列表的 MWE：

ls <- list()
ls[[1]] <- list("a"=1:2,
                "b"=20,
                "c"=numeric(0))
names(ls[[1]]$a) <- c("a1", "a2")

ls[[2]] <- list("a"=3:4,
                "b"=30,
                "c"=1:4,
                "d"="f")
names(ls[[2]]$a) <- c("a1", "a2")

是否可以将这些合并到一个结果列表lsRes，其中lsRes 具有以下属性：

1. lsRes$a 包含两个元素，其中第一个是命名向量 c(1,2) （名称为 c(a1, a2)）和第二个命名向量 c(3,4) （带有名称（c（a1.a2）））

2. lsRes$b包含两个元素，第一个是20，第二个是30

3. lsRes$c 包含两个元素，第一个是 numeric(0)，第二个是 1:4

4. lsRes$d 包含 两个元素，其中第一个是 NA，第二个是“f”

我查看了this 和this，但它们描述的情况不同

Answer 1

假设我们还需要将输出作为list，我们创建通用names，然后将这些不属于任何通用名称的名称分配给NA

nm1 <- unique(unlist(sapply(ls, names)))
lsRes <- lapply(ls, function(x) {x[setdiff(nm1, names(x))] <- NA; x})
lengths(lsRes)
#[1] 4 4

如果我们需要有 4 个元素的 list，则使用 transpose

library(purrr)
lsRes %>%
      transpose