如何将含嵌入矩阵的复杂R列表导出为XLS文件？

直接使用as.data.frame(outputList)再导出的方式会把嵌套矩阵当作数据框的单个列元素，导致Excel单元格显示矩阵的字符串形式，无法拆分出单个数值。下面提供两种实用解决方案：

方案1：分工作表分组展示（贴近控制台显示效果） #

将每个Series（如Series_One、Series_Two）导出为独立工作表，每个工作表内按矩阵分组展示，保留表头和矩阵名称，结构清晰易读：

library(writexl)
library(dplyr)
library(purrr)

# 格式化子列表为带标题和分隔的表格
format_sub_list <- function(sub_list) {
  map_dfr(names(sub_list), function(mat_name) {
    mat_df <- as.data.frame(sub_list[[mat_name]])
    # 添加矩阵标题行
    title_row <- data.frame(matrix(NA, nrow = 1, ncol = ncol(mat_df)))
    names(title_row) <- names(mat_df)
    title_row[1, 1] <- mat_name
    # 合并标题、矩阵数据和分隔空行
    bind_rows(title_row, mat_df, data.frame(matrix(NA, nrow = 1, ncol = ncol(mat_df))))
  }) %>% slice(-n())  # 移除最后一行多余空行
}

# 生成每个Series对应的工作表内容
sheet_list <- map(outputList, format_sub_list)

# 导出到Excel
write_xlsx(sheet_list, "outputList_formatted.xlsx")

方案2：扁平化数据框（适合后续计算） #

将所有数据转换为长格式数据框，每个单元格对应一个独立数值，包含Series名称、矩阵名称、行号、列名和数值字段，便于后续筛选、计算：

library(writexl)
library(tidyr)
library(dplyr)

# 扁平化处理嵌套列表和矩阵
flat_df <- imap_dfr(outputList, function(series_data, series_name) {
  imap_dfr(series_data, function(mat, mat_name) {
    as.data.frame(mat) %>%
      mutate(Row = row_number(),
             Series = series_name,
             Matrix = mat_name) %>%
      pivot_longer(cols = -c(Row, Series, Matrix),
                   names_to = "Column",
                   values_to = "Value")
  })
})

# 导出扁平化数据
write_xlsx(flat_df, "outputList_flat.xlsx")

内容的提问来源于stack exchange，提问作者Curious Jorge - user9788072