r - 递归地将列添加到 data.frame，其中值对应于列表中的向量

Question

我有一个向量列表，其值在 1 到 100 之间。

[[1]]
[[1]][[1]]
[1] "a"

[[1]][[2]]
[1] 41  5 53 55 56


[[2]]
[[2]][[1]]
[1] "b"

[[2]][[2]]
[1] 41 1 57 53  48

等等

我如何以某种方式到达以下 data.frame

  no      1        2
  1      NA        b
  41      a        b
   5      a       NA
  53      a       NA
  55      a       NA
  56      a       NA
  48     NA        b
  57     NA        b
  53     NA        b

并从那里填写缺失的行并根据列“no”排序。从 1 运行到 100？例如。

  no      1        2
  1      NA        b
  2      NA       NA
  3      NA       NA
  4      NA       NA
  5      a        NA

一直等到第 100 行。

Answer 1

对于第一部分，试试这个：

x <- list(list("a",c(41,5,53,55,56)),list("b",c(41,1,57,53,48)))

xl <- lapply(x,function(y) `names<-`(as.data.frame(y),c("chr","no")))

xm <- merge(xl[[1]],xl[[2]],by="no",all=T)
xm
  no chr.x chr.y
1  1  <NA>     b
2  5     a  <NA>
3 41     a     b
4 48  <NA>     b
5 53     a     b
6 55     a  <NA>
7 56     a  <NA>
8 57  <NA>     b

第二个（为简洁起见，我没有打印输出）：

merge(data.frame(no=1:100),xm,all=T)

Answer 2

这是一种方法lapply：

数据：

dat <- list(list("a", c(41, 5, 53, 55, 56)), list("b", c(41, 1, 57, 53, 48)))

解决方案：

lev <- 1:100                # the unique numbers
vec <- rep(NA, length(lev)) # a vector full of NAs

data.frame(no = lev,
           setNames(lapply(dat,
                           function(x) "[<-"(vec, lev %in% x[[2]], x[[1]])),
                    seq_along(dat)), check.names = FALSE)

输出（前 10 行）：

     no    1    2
1     1 <NA>    b
2     2 <NA> <NA>
3     3 <NA> <NA>
4     4 <NA> <NA>
5     5    a <NA>
6     6 <NA> <NA>
7     7 <NA> <NA>
8     8 <NA> <NA>
9     9 <NA> <NA>
10   10 <NA> <NA>