如何在R中将pivot_wider的处理结果导出为符合预期的Excel或CSV文件

pivot_wider操作后出现列表列，是因为同一个名称分组下存在多个对应值，默认将多值存储为列表格式避免行重复，可通过以下两种方式处理后导出为符合要求的文件：

方法1：pivot操作前预处理，避免生成列表列 #

在转换宽表前给同分组下的每个值增加序号标识，转换后即可得到常规结构的宽表：

# 加载依赖包
library(tidyverse)
library(openxlsx) # 导出Excel时使用，仅需导出CSV可省略

# 示例两列原数据，可替换为你的实际数据
raw_df <- tibble(
  category = rep(c("类别1", "类别2", "类别3"), each = 3),
  value = c(10,20,30,40,50,60,70,80,90)
)

# 预处理后转宽表
normal_wide <- raw_df %>%
  group_by(category) %>%
  mutate(row_id = row_number()) %>%
  ungroup() %>%
  pivot_wider(
    names_from = category,
    values_from = value
  ) %>%
  select(-row_id) # 不需要序号列可直接删除

方法2：已有列表列宽表直接展开 #

如果已经完成pivot_wider得到带列表列的结果，直接使用unnest函数展开所有列表列即可：

# 假设你已经得到的列表列宽表为list_wide
normal_wide <- list_wide %>%
  unnest(cols = everything()) 
# 如果仅需要展开部分列，将everything()替换为对应的列名向量即可

导出文件 #

处理得到常规结构的宽表后，直接执行导出命令即可：

# 导出为CSV文件
write.csv(normal_wide, "output_result.csv", row.names = FALSE, na = "")

# 导出为Excel文件
write.xlsx(normal_wide, "output_result.xlsx", overwrite = TRUE)

注意：如果不同分组的数值数量不一致，展开时长度较短的列会自动填充NA，导出参数中na = ""可以将导出文件中的NA替换为空值，更符合日常使用习惯。

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