将具有不同长度向量的列表转换为数据框

Question

我正在尝试将包含多个不同长度（类型因子）的向量的列表转换为具有与列表中元素相同的行数且只有一列的数据框。

例子：

ex.list <- (list(c("Tom", "Ron", "Joe"), c("Ron", "Joe"), c("Tom")))
ex.list <- lapply(ex.list, function(x) as.factor(x))

期望的输出是：

ex.list
        col1
    #1 Tom, Ron, Joe
    #2 Ron, Joe
    #3 Tom

当我打电话给str(ex.list$col1) 我想得到：

Factor w/3 levels: "Tom, Ron, Joe"

在 3 行 3 列的数据框中转换 ex.list 没有问题，但这不是我想要的。

这里最好的方法是什么？ 我应该unlist 并以某种方式将向量排序到这个 3 行 1 列数据帧中吗？有没有方便的功能来做到这一点？

Answer 1

df =  data.frame(col1 = unlist(lapply(ex.list, paste, collapse = ", ")))
> df
           col1
1 Tom, Ron, Joe
2      Ron, Joe
3           Tom

要获得唯一名称，您必须运行类似这样的操作

> unique(unlist(strsplit(as.character(df[ , 1]), ", ")))
[1] "Tom" "Ron" "Joe"

您将无法按照您想要的 data.frame 设置方式查看因子的水平。

Answer 2

您可以将列表列与tidyr::nest 和tidyr::unnest 一起使用：

library(tidyverse)
df <- data.frame(id=seq_along(ex.list), col1 = unlist(lapply(ex.list, paste, collapse = ","))) %>%
  mutate(col1 = stringr::str_split(col1, ",")) %>%
  unnest %>% 
  mutate(col1=as.factor(col1)) %>% 
  nest(col1)

str(df)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   3 obs. of  2 variables:
 $ id  : int  1 2 3
 $ data:List of 3
  ..$ :Classes ‘tbl_df’, ‘tbl’ and 'data.frame':    3 obs. of  1 variable:
  .. ..$ col1: Factor w/ 3 levels "Joe","Ron","Tom": 3 2 1
  ..$ :Classes ‘tbl_df’, ‘tbl’ and 'data.frame':    2 obs. of  1 variable:
  .. ..$ col1: Factor w/ 3 levels "Joe","Ron","Tom": 2 1
  ..$ :Classes ‘tbl_df’, ‘tbl’ and 'data.frame':    1 obs. of  1 variable:
  .. ..$ col1: Factor w/ 3 levels "Joe","Ron","Tom": 3