R语言中write.xlsx写入多数据框至单Excel表的对齐问题求助

方法1：调整xlsx包write.xlsx参数 #

如果继续使用xlsx包的write.xlsx，可以通过手动指定列宽、关闭行名等方式避免自动换行：

library(xlsx)
df_list = list("df1" = df1, "df2" = df2, "df3" = df3)

# 计算所有列的最大宽度（预留2个字符的余量）
col_widths <- sapply(df_list, function(df) sapply(df, function(col) max(nchar(as.character(col))) + 2))
max_col_width <- max(unlist(col_widths))

write.xlsx(z = df_list, 
           file = "list_of_df.xlsx", 
           colWidths = rep(max_col_width, max(sapply(df_list, ncol))),
           row.names = FALSE,
           append = FALSE)

手动设置列宽可以让Excel单元格容纳内容，避免强制换行；关闭行名也能减少不必要的空间占用。

方法2：用openxlsx包精准控制布局 #

openxlsx对Excel的布局控制更灵活，能手动指定每个DataFrame的起始位置，彻底解决自动换行问题：

library(openxlsx)

# 创建工作簿并添加工作表
wb <- createWorkbook()
addWorksheet(wb, sheetName = "All DataFrames")

# 初始化起始行
start_row <- 1

# 遍历写入每个DataFrame
for (name in names(df_list)) {
  df <- df_list[[name]]
  # 写入DataFrame名称（加粗作为标题）
  writeData(wb, sheet = "All DataFrames", x = name, startRow = start_row, bold = TRUE)
  start_row <- start_row + 1
  # 写入DataFrame内容
  writeData(wb, sheet = "All DataFrames", x = df, startRow = start_row, rowNames = FALSE)
  # 每个DataFrame之间空2行分隔
  start_row <- start_row + nrow(df) + 2
}

# 自动适配列宽
setColWidths(wb, sheet = "All DataFrames", cols = 1:max(sapply(df_list, ncol)), widths = "auto")

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

这种方式可以完全控制每个DataFrame的位置，还能添加标题和分隔行，大幅提升可读性。

方法3：合并DataFrame（结构一致时适用） #

如果所有DataFrame的列结构相同，可以先合并为单个DataFrame并添加来源标识，再写入Excel：

library(dplyr)
library(xlsx)

# 合并所有DataFrame，添加来源列
combined_df <- bind_rows(df_list, .id = "Source")

write.xlsx(combined_df, file = "combined_df.xlsx", row.names = FALSE, colWidths = "auto")

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