列表转化为数据框

一个和大鹏大同小异的办法：

l = list(l1 = list(1, 2, NULL, 4), l2 = list(11, NULL, 33, NULL))
df <- do.call(cbind, l)
df[df == "NULL"] = NA
df
#>   l1 l2
#> 1  1 11
#> 2  2 NA
#> 3 NA 33
#> 4  4 NA

^{Created on 2022-04-15 by the reprex package (v2.0.1)}

Liechi 我最初写的跟你的这个类似，但是发现得到的数据结构有点复杂：

> str(df)
List of 8
 $ : num 1
 $ : num 2
 $ : logi NA
 $ : num 4
 $ : num 11
 $ : logi NA
 $ : num 33
 $ : logi NA
 - attr(*, "dim")= int [1:2] 4 2
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:2] "l1" "l2"

所以前后增加了一些操作，目的只是为了得到一个简单的 data frame。

不过，你这个解法启发我动了点歪脑筋，可以绕开烧脑的 lapply sapply apply 家族：

df <- do.call(cbind, l)
write.table(df, 'clipboard')
read.table('clipboard', na.strings = 'NULL')

Cloud2016 赞 data.table，确实一剑封喉。

data.frame(t(data.table::rbindlist(l)))
#> Warning in data.table::rbindlist(l): Column 3 [''] of item 1 is length 0. This
#> (and 2 others like it) has been filled with NA (NULL for list columns) to make
#> each item uniform.
#>    X1 X2
#> V1  1 11
#> V2  2 NA
#> V3 NA 33
#> V4  4 NA

dapengde
这个“歪脑筋”在 mac 和 linux 上不好用：

l = list(l1 = list(1, 2, NULL, 4), l2 = list(11, NULL, 33, NULL))
df <- do.call(cbind, l)
write.table(df, 'clipboard')
#> Error in file(file, ifelse(append, "a", "w")): 'mode' for the clipboard must be 'r' on Unix

有一些办法可绕开这个困难，考虑到性价比，十动然拒。

library(tidyverse)
unnest(as_tibble(l))

不知道为什么，好像满足要求了。