如何使用Flextable复现xtabs的输出结果？

首先需要安装并加载flextable和officer包（后者用于导出Word文档）：

install.packages(c("flextable", "officer"))
library(flextable)
library(officer)

1. 转换交叉表为数据框 #

xtabs返回的是表格对象，需要先转成数据框才能用flextable处理，同时避免使用attach（推荐直接指定数据源）：

# 计算交叉表并转为数据框
tab_df <- as.data.frame(xtabs(breaks ~ tension + wool, data = warpbreaks))

2. 创建并美化Flextable #

如果想要和原输出的行列结构一致（张力为行，羊毛类型为列），可以先用pivot_wider调整数据结构，再生成表格：

# 转换为宽格式（匹配原xtabs输出结构）
tab_wide <- tidyr::pivot_wider(tab_df, names_from = wool, values_from = Freq)

# 生成并美化表格
ft <- flextable(tab_wide) %>%
  theme_box() %>%  # 添加边框样式
  align(align = "center", part = "all") %>%  # 内容居中
  width(j = 1, width = 1) %>%  # 调整第一列宽度
  width(j = 2:3, width = 1.2)  # 调整数值列宽度

如果需要更美观的合并行样式（比如张力列的重复值合并），可以用长格式生成表格：

ft_merged <- flextable(tab_df) %>%
  set_header_labels(tension = "张力", wool = "羊毛类型", Freq = "断裂数") %>%
  merge_v(j = "张力") %>%  # 合并张力列的重复行
  theme_box() %>%
  align(align = "center", part = "all") %>%
  width(j = c(1,2,3), width = c(1,1,1.5))

3. 导出到Word #

用save_as_docx函数将表格导出到指定路径：

# 导出宽格式表格
save_as_docx(ft, path = "warpbreaks_table.docx")

# 或者导出合并行的表格
save_as_docx(ft_merged, path = "warpbreaks_merged_table.docx")

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