在 rmarkdown 中获取 expss 表格的自动表格标题

Question

我一直在尝试为 R Markdown 中通过 expss 包生成的表获取自动表编号。我可以看到 kable 和 huxtables 给我自动编号，但没有给 expss 中生成的表。我想保留 expss 格式，因为我喜欢 html 输出的格式。

我无法对其进行自动编号的 expss 表的示例，如“表 1.1：...”。

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 表格并让它们自动添加标题的解决方案是什么？

我尝试为 expss 表提供标题，就像我为 kable 和 huxtables 提供的标题一样。我仍然无法在 rmarkdown 正文中获得 expss 表自动编号，但 kable 和 huxtable 表并非如此。

Answer 1

expss

使用

htmlTable

作为默认的knitr 输出。正如我在 htmlTable 的手册中看到的，htmlTable 具有自动编号功能。您可以使用以下代码：

options(table_counter = TRUE)
options(table_counter_str = "Table 1.%s: ")

也许，您需要调整每个文档部分开头的

table_counter_str

字符串。