如何在R Markdown中为expss表格实现自动标题编号？

我正在尝试为R Markdown中通过expss包生成的表格添加自动编号。发现kable和huxtable生成的表格可自动编号，但expss表格无法实现。我希望保留expss的格式，因为其HTML输出样式符合需求。

无法自动编号的expss表格示例如下：

m1 |>
 tab_cells(country, job_title, divison) |>
 tab_stat_cases() |>
 tab_pivot() |>
 tab_caption("Country, job-functions, and department of respondents")

但将其转换为huxtable后即可实现自动标题编号：

table1 <- as_hux(tabb1) |>
 set_all_padding(2) |>
 set_outer_padding(0) |>
 set_number_format(0) |>
 set_bold(row = everywhere, col = 1) |>
 set_bottom_border(col = 1, row = everywhere) |>
 set_width(1) |>
 set_col_width(rep(c(.15, .5, .05))) |>
 set_right_border(everywhere, 1, brdr(3, "double", "grey")) |>
 set_left_border(everywhere, 1, brdr(3, "double", "grey")) |>
 set_all_borders(brdr(0.4, "solid", "lightgrey")) |>
 set_caption("Country, job-function, and department of respondents")

我曾尝试为expss表格添加类似kable和huxtable的标题，但仍无法在R Markdown正文中实现自动编号，请问该如何解决才能保留expss格式并实现自动标题编号？

解决方案 #

方法1：转换为huxtable并保留expss原格式 #

无需手动重构样式，as_hux()转换时会完整保留expss表格的原始格式，只需添加标题设置即可启用自动编号：

# 生成expss表格
expss_table <- m1 |>
  tab_cells(country, job_title, divison) |>
  tab_stat_cases() |>
  tab_pivot()

# 转换为huxtable，保留原格式并设置标题
huxtable_table <- as_hux(expss_table) |>
  set_caption("Country, job-functions, and department of respondents") |>
  set_caption_pos("top")  # 确保标题位于表格上方

# 在R Markdown中直接输出
huxtable_table

此方法既保留了expss的HTML样式，又借助huxtable的特性实现了R Markdown自动编号。

方法2：手动维护计数器实现编号 #

如果不想依赖huxtable，可以通过全局变量手动控制编号：

1. 先定义计数器变量：

table_num <- 1

2. 生成表格时拼接编号到标题：

m1 |>
  tab_cells(country, job_title, divison) |>
  tab_stat_cases() |>
  tab_pivot() |>
  tab_caption(paste0("Table ", table_num, ": Country, job-functions, and department of respondents"))

# 更新计数器
table_num <- table_num + 1

这种方式适合简单场景，但需要手动管理计数器，灵活性稍差。

方法3：使用bookdown自动处理编号 #

若使用bookdown编译文档，所有支持caption的表格都会自动编号，只需在YAML头部设置：

output: bookdown::html_document2

之后通过as_hux()转换的expss表格，只需设置set_caption()即可自动获得编号，无需额外代码，同时完整保留expss格式。

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