如何在R语言中将含多矩阵的数组导出至Excel且不合并

方案1：每个矩阵单独存为一个工作表 #

用openxlsx包（无需Java依赖，轻量好用），步骤如下：

# 先安装包（仅第一次需要）
install.packages("openxlsx")
library(openxlsx)

# 你的原始数据
vector1 <- c(5,9,3)
vector2 <- c(10,11,12,13,14,15)
array <- array(c(vector1,vector2),dim = c(3,3,2))

# 创建空工作簿
wb <- createWorkbook()

# 遍历数组的第三维度，每个切片存为独立工作表
for (i in 1:dim(array)[3]) {
  addWorksheet(wb, sheetName = paste0("Matrix", i))  # 自定义工作表名称
  writeData(wb, sheet = i, x = array[,,i])  # 写入当前矩阵
}

# 保存Excel文件，overwrite=TRUE允许覆盖已有文件
saveWorkbook(wb, "array_multi_sheet.xlsx", overwrite = TRUE)

方案2：所有矩阵放在同一工作表，彼此间隔开 #

同样用openxlsx，通过控制起始行来实现矩阵间的间隔：

library(openxlsx)

# 原始数据
vector1 <- c(5,9,3)
vector2 <- c(10,11,12,13,14,15)
array <- array(c(vector1,vector2),dim = c(3,3,2))

# 创建工作簿和单个工作表
wb <- createWorkbook()
addWorksheet(wb, sheetName = "AllMatrices")

# 设置矩阵之间的间隔行数（可自定义）
gap_rows <- 2
current_row <- 1

# 逐个写入矩阵
for (i in 1:dim(array)[3]) {
  current_mat <- array[,,i]
  writeData(wb, sheet = "AllMatrices", x = current_mat, startRow = current_row)
  # 更新下一个矩阵的起始行：当前行 + 矩阵行数 + 间隔行数
  current_row <- current_row + nrow(current_mat) + gap_rows
}

# 保存文件
saveWorkbook(wb, "array_single_sheet.xlsx", overwrite = TRUE)

补充说明 #

write.csv之所以会合并矩阵，是因为CSV是单表格纯文本格式，不支持多工作表，且会把多维数组按列维度展开成一维后写入，所以无法满足你的需求。必须用支持Excel格式的包（比如openxlsx、writexl、xlsx等），其中openxlsx是最推荐的，无需额外配置Java环境。

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