R语言table1包如何设置字体大小、列宽及适配Word页面宽度？

table1本身未提供直接设置导出字体、列宽的参数，但支持将生成的表格转换为flextable对象，即可复用flextable的格式调整能力，操作步骤如下：

1. 加载所需依赖包

library(table1)
library(flextable)

2. 生成基础table1表格（示例用mtcars数据集，可替换为你的实际数据逻辑）

# 示例：按变速箱类型分组展示油耗、气缸数、排量统计
raw_tab <- table1(~ mpg + cyl + disp | factor(am, levels = c(0,1), labels = c("自动","手动")), 
                  data = mtcars)

3. 将table1对象转换为flextable对象

ft_tab <- as_flextable(raw_tab)

4. 调整字体大小与列宽

# 全局设置所有单元格字体大小为10号
ft_tab <- fontsize(ft_tab, size = 10, part = "all")

# 自定义设置每列宽度，单位为英寸，可根据实际列数调整
ft_tab <- width(ft_tab, width = c(1.8, 1.4, 1.4, 1.4))

# 也可以直接使用autofit自动适配内容宽度，适配Word页面
ft_tab <- autofit(ft_tab)

5. 导出到Word文档

save_as_docx(ft_tab, path = "自定义table1结果.docx")

• 注意：A4纸默认左右边距各1英寸时，页面可用宽度为6.5英寸，所有列宽度之和不超过该值即可适配页面，无需额外调整。
• 如果需要设置特殊格式（如表头加粗、分组行背景色等），直接使用flextable对应函数操作即可，和普通flextable对象的调整逻辑完全一致。

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