R语言如何melt嵌套tibble 解决导出报错并展开为二维表

CSV、XLSX这类通用表格格式仅支持单元格存储原子值（单值文本、数字、逻辑值等），不支持单元格内嵌表结构：

• 导出CSV时，嵌套tibble列会被强制转换为R对象的描述字符串，Excel无法正常解析
• 导出XLSX时，写入函数判断单元格空值时传入了长度大于1的tibble对象，直接触发报错：Error in if (is.na(value)) { : the condition has length > 1

不需要手动用mutate写复杂的映射逻辑，直接使用tidyr包的unnest()函数即可实现需求，操作逻辑完全匹配要求：保留原表前4列，按嵌套tibble的行数重复匹配前4列值，将嵌套tibble的列展开替换原嵌套列，最终生成标准二维表。

操作步骤 #

1. 加载依赖包

# 若未安装先运行 install.packages("tidyverse")
library(dplyr)
library(tidyr)

2. 执行展开操作
   假设原始数据框命名为raw_df，存储嵌套tibble的列名为nested_data（请替换为实际的对象名、列名）：

# 仅保留前4列+嵌套列后展开，避免其他无关列表列干扰
flat_df <- raw_df %>%
  select(1:4, nested_data) %>%
  unnest(cols = nested_data)

注意：执行unnest时请明确指定要展开的嵌套列，避免其他隐藏的列表类型列被同时展开导致结果不符合预期

unnest()会自动完成行对齐、列展开操作，生成的flat_df是无任何嵌套结构的标准dataframe，所有列均为单值原子类型。

拍平后的表可正常导出为CSV或XLSX格式，无解析问题：

# 导出CSV
write.csv(flat_df, "处理后的数据.csv", row.names = FALSE, fileEncoding = "UTF-8")

# 导出XLSX，推荐用writexl包无额外依赖，若未安装先运行 install.packages("writexl")
library(writexl)
write_xlsx(flat_df, "处理后的数据.xlsx")

补充说明 #

如果一定要通过mutate实现展开逻辑（不推荐，效率低于原生unnest），可配合purrr包的行映射实现，写法参考：

flat_df <- raw_df %>%
  select(1:4, nested_data) %>%
  mutate(nested_data = purrr::map(nested_data, as.data.frame)) %>%
  unnest(cols = nested_data)

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