如何将R数据框中列表类型列的元素拆分为独立的新变量？

以下两种实现方案都可以满足需求：将所有列表类型列按元素拆分为原列名+序号格式的独立变量，非列表列保持不变。

方法1：tidyverse 简洁方案（推荐，兼容性更强） #

依赖tidyverse套件中的tidyr和dplyr，自动适配多行数、列表元素长度不一致的场景：

# 加载依赖包
library(tidyverse)

# 拆分所有列表列
df_expanded <- df %>%
  unnest_wider(where(is.list), names_sep = "")

方法2：基础R实现方案（无需安装额外包） #

适合不想加载第三方包的场景，适配你提供的单行数据结构：

# 识别所有列表类型列
list_cols <- names(df)[sapply(df, is.list)]
# 初始化结果数据框，先保留所有非列表列
df_expanded <- df[, !names(df) %in% list_cols, drop = FALSE]

# 遍历所有列表列拆分
for (col_name in list_cols) {
  # 取出当前列存储的多元素向量
  elements <- df[[col_name]][[1]]
  # 生成新列名：原列名+序号
  new_col_names <- paste0(col_name, seq_along(elements))
  # 将元素赋值到新列
  df_expanded[new_col_names] <- as.list(elements)
}

两种方法执行后，df_expanded就是你需要的拆分项后的数据框，你示例的position_groups.profile_positions.1.date.start.year会自动拆分为position_groups.profile_positions.1.date.start.year1、position_groups.profile_positions.1.date.start.year2两个独立列。

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