Question

我有一个命名向量列表：

> x <- list(c(a=1, b=2, c=3, d=4),c(a=5, b=6 ,c=7 ,d=8),c(a=32, c=46, d=55, e=100))
> x
[[1]]
a b c d 
1 2 3 4 

[[2]]
a b c d 
5 6 7 8 

[[3]]
  a   c   d   e 
 32  46  55 100

我想将此强制转换为data.frame，以便名称相似的值分为一列：

> y <- data.frame(a=c(1,5,32), b=c(2,6,NA), c=c(3,7,46), d=c(4,8,55), e=c(NA,NA,100))
> y
   a  b  c  d   e
1  1  2  3  4  NA
2  5  6  7  8  NA
3 32 NA 46 55 100

有一种简单的方法吗？

Answer 1

您可以使用purrr::map_df和dplyr::bind_rows

轻松完成此操作

library(purrr)
library(dplyr)
map_df(x,bind_rows)

# A tibble: 3 x 5
      a     b     c     d     e
  <dbl> <dbl> <dbl> <dbl> <dbl>
1     1     2     3     4    NA
2     5     6     7     8    NA
3    32    NA    46    55   100

Answer 2

我们可以使用data.table

library(data.table)
rbindlist(lapply(x, as.data.frame.list), fill = TRUE)
#    a  b  c  d   e
#1:  1  2  3  4  NA
#2:  5  6  7  8  NA
#3: 32 NA 46 55 100

或使用base R

un1 <- unique(unlist(lapply(x, names)))
do.call(rbind, lapply(x, function(y) {
   y[setdiff(un1, names(y))] <- NA
   y[un1]}))

Answer 3

使用 dplyr 包尝试此操作：

require(dplyr)

data.frame(bind_rows(!!! x))

#or for a tibble, use: bind_rows(!!! x)

输出：

   a  b  c  d   e
1  1  2  3  4  NA
2  5  6  7  8  NA
3 32 NA 46 55 100

Answer 4

考虑基础R：

df <- do.call(rbind, lapply(x, function(i) 
                            data.frame(a=i['a'], b=i['b'], c=i['c'], 
                                       d=i['d'], e=i['e'])))
row.names(df) <- NULL

df
#    a  b  c  d   e
# 1  1  2  3  4  NA
# 2  5  6  7  8  NA
# 3 32 NA 46 55 100

R - 将列表强制列入数据框，将列变量保持在一起

4 个答案: