如何在R中创建带空单元格的结果导出表（列长度不等）

Base R 实现方式 #

直接用data.frame结合I()包裹各列数据，允许列长度不一致，空单元格会显示为空字符串而非NA：

# 准备不同长度的列数据
group <- c("对照组", "实验组1", "实验组2")
mean_value <- c(2.3, 4.1)
significance <- c("*")

# 创建支持不等长列的表格
report_table <- data.frame(
  组别 = I(group),
  均值 = I(mean_value),
  显著性 = I(significance),
  stringsAsFactors = FALSE
)

# 输出查看
print(report_table)

导出成CSV时，指定na = ""确保空单元格不显示NA：

write.csv(report_table, "analysis_report.csv", na = "", row.names = FALSE)

Tidyverse 实现方式 #

用tibble存储列表列，再统一填充空字符串补全长度，适配tidyverse工作流：

library(tibble)
library(dplyr)

# 构建初始列表列的tibble
report_tbl <- tibble(
  组别 = list("对照组", "实验组1", "实验组2"),
  均值 = list(2.3, 4.1),
  显著性 = list("*")
) %>%
  # 计算最长列长度，给短列补空字符串
  mutate(across(everything(), ~ {
    col_len <- length(.)
    max_len <- max(lengths(cur_data()))
    unlist(append(., rep("", max_len - col_len)))
  }))

# 查看最终表格
print(report_tbl)

如果要导出Excel格式（更适合报告），用writexl包直接导出，空单元格会保持为空：

library(writexl)
write_xlsx(report_tbl, "analysis_report.xlsx")

重要提醒 #

• 这类表格仅用于报告展示，不能用于后续统计分析，因为不符合标准数据框的结构要求
• 导出时一定要确保NA被替换为空字符串，避免出现在最终报告里

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