GTSAVE（）to docx在过程中丢失tab_stub_indent 我正在与GTSummary合作，我遇到了有关其作为DOCX文档出口的麻烦。 我基本上使用gt_summary创建我的表格，然后将其转换为gt_table，这有助于我使用一些

Question

在HTML文件中，显示非常完美，但是在DOCX中，我不再有凹痕了。 我还尝试在Excel中打开HTML文件，但我也放开了凹痕。

您知道是否有任何解决方案可以通过出口来实现存根的缩进？

对出口兼容性的小插图进行了抗衡，我担心兼容性可能还没有完全实现

https：//www.danieldsjoberg.com/gtsummary/articles/rmarkdown.html

贝洛是我的代码： 我的数据库通常由有关个人（从Indiv_开始）的多个变量组成，例如年龄，性别，种族，经济群体 以及有关环境（从ENV_开始）的其他有关污染水平（连续）和暴露于洪水（分类订购）等环境的人。

library(tidyverse)
library(gtsummary)
library(gt)

filtered_database = data.frame(
  INDIV_AGE = rnorm(100, mean = 50, sd = 4),
  INDIV_GENDER = rbinom(100, size=1, prob = 0.6),
  INDIV_ETHNICS = sample(c("North America", "Western Europe", "Africa", "Eastern Europe", "Asia", "Other"), size = 100, replace = T, prob = c(0.3, 0.2, 0.4, 0.02, 0.01, 0.07)),
  INDIV_ECOGRP = sample(c(1,2,3,4), size = 100, replace = T, prob = c(0.6, 0.1, 0.2, 0.1)),
  ENV_POLLEVEL = rpois(100, lambda = 4), 
  ENV_FLOODPROFILE = sample(c("Low", "Intermediate", "High", "Extreme"), size = 100, replace = T, prob = c(0.1, 0.65, 0.2, 0.05))
)
filtered_database[] <- lapply(filtered_database, function(x) { x[sample(seq_along(x), 0.1 * length(x))] <- NA; x })



a = filtered_database |> 
  tbl_summary(
    include = everything(),
    missing = "always",
    missing_text = "Missing data",
    missing_stat = "{N_miss} ({p_miss}%)",
    type = INDIV_AGE ~ "continuous",
    statistic = list(
      all_continuous() ~ "{median} [{p25}-{p75}]",
      all_categorical() ~ "{n} ({p}%)"
      ),
    by = INDIV_GENDER
  ) |> 
  modify_header(
    label = "",
    stat_2 = "**Yes**\nN={n}",
    stat_1 = "**No**\nN={n}") |>
  modify_spanning_header(all_stat_cols()~"**Gender**") |>
  add_p() |> 
  bold_p() |>
  modify_column_alignment(columns = c("stat_1", "stat_2"), align = "right") |>
  as_gt(rowname_col = "label") |>
  tab_header(
    title = "Description of the population") |> 
  cols_align("right", columns = last_col())

gt_var_names = a$`_data`$variable

b = a |> 
  tab_row_group(
    label = "Individual characteristics",
    rows = str_detect(gt_var_names, "^INDIV_")
  ) |> 
  tab_row_group(
    label = "Environment characteristics",
    rows = str_detect(gt_var_names, "^ENV_")
  ) |>
  row_group_order(groups = c("Environment characteristics", "Individual characteristics")) |> 
  tab_style(
    style = cell_text(weight = "bold"),
    locations = cells_row_groups()
  ) |> 
  tab_style(
    style = cell_text(style = "italic", color = "gray65"),
    locations = cells_body(
      columns = everything(),
      rows = row_type == "missing"
    )
  ) |> 
  tab_style(
    style = cell_text(style = "italic"),
    locations = cells_stub(
      rows = row_type == "missing"
    )
  )


gt_line_names = b$`_data`$label

for (j in seq_along(gt_line_names)){
  if (startsWith(gt_line_names[j], "ENV")){
    b = b |> 
      tab_stub_indent(
        rows = j,
        indent = 5
      )
  }
}
b|> gtsave("Population.docx")

我期望具有正确缩进的标签的输出（在HTML文件中产生）

但我最终得到了：

对出口兼容性的小插图进行了争分，我担心兼容性尚未完全实现

在GT软件包（打印表的软件包）中，Word不支持HTML输出可用的所有修改/样式。 GTSummary软件包利用了以DOCX格式支持的样式，并且您添加了尚未支持的样式。 （HTML和DOCX中支持很多项目。）

您有几个选择：

Answer 1

将最简单的事情保留在GTSummary软件包中的默认样式。

您还可以探索出口到filesable的导出，

as_flex_table()

也有大量的样式桌子并具有出色的单词支持。

您可以向GT软件包提交问题，要求支持您希望在单词输出中看到的特定样式。