R语言：如何将数据框中含向量的列拆分为多列？

当然可以！你遇到的问题本质是数据框中的列表列（每个元素是一个向量）拆分——之前用tidyr的字符串拆分函数失效，是因为那些函数是针对字符型列设计的，而你的列其实是存储向量的列表列，得用专门处理列表列的工具。

下面给你两种常用的解决方法，都是tidyverse生态里的工具，简单高效：

方法1：用tidyr::unnest_wider()（最推荐） #

这个函数就是专门用来把列表列拆分成多个独立列的，直接指定要拆分的列名即可：

示例代码 #

# 先加载必要的包
library(dplyr)
library(tidyr)

# 构造一个包含向量列的示例数据框
df <- tibble(
  id = 1:2,
  vec_col = list(c("aa", "bb", "cc"), c("dd", "ee", "ff"))
)

# 拆分向量列
df_split <- df %>% 
  unnest_wider(vec_col, names_sep = "_")

# 查看结果
df_split

输出结果 #

# A tibble: 2 × 4
     id vec_col_1 vec_col_2 vec_col_3
  <int> <chr>     <chr>     <chr>    
1     1 aa        bb        cc       
2     2 dd        ee        ff       

• names_sep = "_"用来指定新列名的分隔符，你可以改成自己喜欢的格式，比如names_sep = ""就会得到vec_col1、vec_col2；
• 如果你的向量本身有命名（比如c(col1 = "aa", col2 = "bb")），unnest_wider会自动用这些命名作为新列名，不需要额外设置。

方法2：用purrr::map_dfc()结合dplyr::bind_cols() #

如果想手动控制拆分逻辑，可以用purrr的映射函数把每个向量转成单行数据框，再绑定到原数据框上：

library(purrr)
library(dplyr)

df_split <- df %>% 
  bind_cols(map_dfc(.$vec_col, ~as_tibble(t(.)))) %>% 
  select(-vec_col) # 移除原来的向量列

这个方法的灵活性更高，但相比unnest_wider要繁琐一些，适合需要自定义处理的场景。

关键提醒 #

要注意你的“向量列”在R的数据框里必须是列表列（用list()包裹每个向量），如果之前不小心把向量转成了字符串（比如变成"c(\"aa\",\"bb\",\"cc\")"），得先把字符串转回列表：

# 修复被转成字符串的列
df_fixed <- df %>% 
  mutate(vec_col = map(vec_col, ~eval(parse(text = .))))

不过最好从源头避免把向量转成字符串，直接存储为列表列是最规范的做法。

内容的提问来源于stack exchange，提问作者adriansteffan