將列表列表轉換為R中的data.frame

Question

我試圖將列表列表轉換為data.frame 。 我意識到這個問題已被多次詢問，但我找不到早先的答案，這在我的案例中是有效的。

這里有幾個早期的帖子：

如何壓扁列表列表？

R data.frame列表

到目前為止，我看到的最好的答案是Benjamin Christoffersen在上面的第二個鏈接，但在我的情況下，我每個子列表只有一個值，我缺少觀察，我的列表有名稱，我希望保留。

這是我的示例數據集：

AA <- list(my.col1 =    1, my.col2 =    4, my.col3 = NULL, my.col4 = NULL)
BB <- list(my.col1 = NULL, my.col2 = NULL, my.col3 = NULL, my.col4 = NULL)
CC <- list(my.col1 =   13, my.col2 =    8, my.col3 =    2, my.col4 =   10)
DD <- list(my.col1 = NULL, my.col2 = NULL, my.col3 =   -5, my.col4 =    7)

my.stuff <- list(AA, BB, CC, DD)
names(my.stuff) <- c("AA", "BB", "CC", "DD")
my.stuff

這是所需的data.frame ：

desired.object <- read.table(text = '
     my.var   my.col1 my.col2 my.col3 my.col4
        AA       1       4    NULL    NULL
        BB    NULL    NULL    NULL    NULL
        CC      13       8       2      10
        DD    NULL    NULL      -5       7', 
stringsAsFactors = FALSE, header = TRUE, na.strings = "NULL")
desired.object
#  my.var my.col1 my.col2 my.col3 my.col4
#1     AA       1       4      NA      NA
#2     BB      NA      NA      NA      NA
#3     CC      13       8       2      10
#4     DD      NA      NA      -5       7

我可以獲得看起來相似的輸出，但它根本不是我想要的格式：

my.stuff2    <- do.call(rbind, my.stuff)
my.stuff2
#    my.col1 my.col2 my.col3 my.col4
# AA 1       4       NULL    NULL   
# BB NULL    NULL    NULL    NULL   
# CC 13      8       2       10     
# DD NULL    NULL    -5      7

對不起，如果已經回答了這個問題。

Answer 1

那這個呢？

do <- as.data.frame(do.call(rbind, lapply(my.stuff, as.vector)))
do <- cbind(my.var=rownames(do), do)
do[do == "NULL"] <- NA

結果

> do
   my.var my.col1 my.col2 my.col3 my.col4
AA     AA       1       4      NA      NA
BB     BB      NA      NA      NA      NA
CC     CC      13       8       2      10
DD     DD      NA      NA      -5       7

編輯：

如果我們不希望列表作為列對象，正如@akrun合理建議的那樣，我們可以這樣做：

u <- as.character(unlist(my.stuff, recursive=FALSE))
u[u == "NULL"] <- NA
do <- matrix(as.integer(u), nrow=4, byrow=TRUE, 
             dimnames=list(NULL, names(my.stuff[[1]])))
do <- data.frame(my.var=names(my.stuff), do, stringsAsFactors=FALSE)

測試：

> all.equal(str(do), str(desired.object))
'data.frame':   4 obs. of  5 variables:
 $ my.var : chr  "AA" "BB" "CC" "DD"
 $ my.col1: int  1 NA 13 NA
 $ my.col2: int  4 NA 8 NA
 $ my.col3: int  NA NA 2 -5
 $ my.col4: int  NA NA 10 7
'data.frame':   4 obs. of  5 variables:
 $ my.var : chr  "AA" "BB" "CC" "DD"
 $ my.col1: int  1 NA 13 NA
 $ my.col2: int  4 NA 8 NA
 $ my.col3: int  NA NA 2 -5
 $ my.col4: int  NA NA 10 7
[1] TRUE

Answer 2

我們可以使用遞歸map

library(tidyverse)
map_df(my.stuff, ~ map_df(.x,  ~ 
                      replace(.x, is.null(.x), NA)), .id = "my.var")  
# A tibble: 4 x 5
#  my.var my.col1 my.col2 my.col3 my.col4
#  <chr>    <dbl>   <dbl>   <dbl>   <dbl>
#1 AA           1       4      NA      NA
#2 BB          NA      NA      NA      NA
#3 CC          13       8       2      10
#4 DD          NA      NA      -5       7