如何将R语言模拟生成的统计量DataFrame转换为规范表格？

先确认数据结构 #

首先确保你的mycode()返回命名向量，这样堆叠后的DataFrame会自动带上统计量列名，行对应模拟次数。示例代码：

# 模拟你的mycode函数
mycode <- function() {
  x <- rnorm(100)
  c(Mean = mean(x), SD = sd(x), Min = min(x), Q1 = quantile(x, 0.25))
}

# 生成目标DataFrame
sim_results <- do.call(rbind, lapply(1:10, function(i) mycode()))
sim_results <- as.data.frame(sim_results)
rownames(sim_results) <- paste0("模拟", 1:10) # 给行添加模拟编号

方法1：用knitr::kable生成轻量化markdown表格 #

适合在R Markdown中直接输出纯文本/格式化表格，无需图片：

library(knitr)
# 基础输出，保留3位小数
kable(sim_results, digits = 3, caption = "十次模拟统计量结果")

# 用kableExtra美化（可选）
library(kableExtra)
kable(sim_results, digits = 3, caption = "十次模拟统计量结果") %>%
  kable_styling(full_width = FALSE, bootstrap_options = "striped")

方法2：用gt包生成专业可交互表格 #

gt支持高度定制，可输出HTML/PDF，也能导出为图片：

library(gt)
# 创建表格并格式化
gt_table <- gt(sim_results) %>%
  tab_header(title = "十次模拟统计量结果") %>%
  fmt_number(columns = everything(), decimals = 3) %>%
  opt_table_lines()

# 在R Markdown中直接输出
gt_table

# 导出为图片（如果需要）
gtsave(gt_table, filename = "sim_stats_table.png")

方法3：优化flextable输出（避免默认图片格式） #

flextable默认可以输出为HTML/PDF，无需强制生成图片，调整方式如下：

library(flextable)
ft <- flextable(sim_results) %>%
  set_caption("十次模拟统计量结果") %>%
  theme_booktabs() %>% # 用学术风格主题
  colformat_double(digits = 3)

# R Markdown中直接输出（非图片格式）
ft

# 强制导出为图片（按需选择）
save_as_image(ft, path = "flextable_sim_table.png")

为什么table()/as.table()/xtab()不适用？ #

这些函数是为频数统计、交叉制表设计的，专门处理分类变量的频次汇总，完全不适合格式化包含连续数值的统计量结果表格，所以会出现不符合预期的输出。

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