如何自定义CreateTableOne输出并生成可导出为HTML或复制到Excel的表格

R语言CreateTableOne自定义输出解决方案 #

自定义统计量输出 #

你可以通过两种方式实现自定义输出，同时包含连续变量的全量统计特征和分类变量的占比信息：

方式1：使用print方法直接配置

CreateTableOne生成的对象支持通过print()方法自定义输出参数，直接生成符合要求的汇总表：

library(tableone)

# 原有数据处理代码
mydata <- mtcars
mydata$gear <- as.factor(mydata$gear)
mydata$carb <- as.factor(mydata$carb)
VarsForTableOne <- c("mpg", "cyl", "disp", "hp", "drat", "wt", "gear", "carb")
myTableOne <- CreateTableOne(vars = VarsForTableOne, data = mydata, strata = "vs")

# 自定义输出配置
custom_table <- print(
  myTableOne,
  contDigits = 2, # 连续变量小数位数
  catDigits = 1, # 分类变量百分比小数位数
  showAllLevels = TRUE, # 展示分类变量所有水平
  nonnormal = VarsForTableOne, # 连续变量输出中位数[四分位距]，如需要均值(标准差)可删除该参数
  addOverall = TRUE, # 可选：添加总样本列
  pval = FALSE # 不需要p值可开启
)

# 转换为数据框方便后续处理
table_df <- as.data.frame(custom_table)

方式2：手动合并连续+分类变量统计量

如果需要完全自定义指标组合，可以分别提取连续和分类变量的统计结果后合并：

# 提取连续变量所有统计量（含最小值、四分位数、中位数、均值、最大值）
cont_stats <- as.data.frame(myTableOne$ContTable)
# 提取分类变量统计量（含频数、占比）
cat_stats <- as.data.frame(myTableOne$CatTable)
# 合并为总表
full_table <- rbind(cont_stats, cat_stats)

导出为目标格式 #

导出到Excel

直接将数据框保存为CSV文件，可直接用Excel打开编辑：

write.csv(full_table, "描述统计结果.csv", row.names = TRUE, fileEncoding = "UTF-8")

输出为Markdown/HTML格式

使用knitr::kable即可直接生成标准Markdown表格，渲染后自动转为HTML格式：

library(knitr)
kable(full_table, caption = "样本描述统计结果")

如果需要更美观的交互式HTML表格，可使用flextable包处理。

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