r - 如何在 gt_regression() 输出的表格标签中放置换行符并由 LaTeX 输出？

Question

根据 the documentation of the gtsummay package , 你可以使用 <br>在 add_significance_stars()打破表格的标签，以 HTML 格式显示回归模型的结果，但它不适用于 LaTeX。我尝试过其他换行方法，例如 \n , 但它仍然不起作用。如何在 LaTeX 中换行？

这是一个 HTML 示例。

df <- 
mtcars %>% 
  lm(mpg ~ ., data = .)

df %>%
  tbl_regression() %>%
  add_significance_stars(
    hide_se = TRUE,
    pattern = "{estimate}{stars}<br>({std.error})"
  ) %>%
  modify_header(estimate ~ "OLS<br>result")

这是一个 LaTeX 示例。

df %>% 
  tbl_regression() %>% 
  add_significance_stars(
    hide_se = TRUE,
    pattern = "{estimate}{stars}<br>({std.error})"
  ) %>%
  modify_header(estimate ~ "OLS<br>result") %>% 
  as_kable_extra(
    format = "latex",
    booktabs = TRUE
    )

我根据答案创建了一个表格，但我发现这种方法在使用 tbl_merge() 时会导致布局被破坏。 .

我再展示一下问题代码

# make nested dataframe
nest_df <- 
mtcars %>% 
  tibble() %>% 
  group_nest(vs)

# make function
mod_fun <- function(df){lm(mpg ~ ., data = df)}

# map function
nest_df <-
  nest_df %>% 
  mutate(model = map(data, mod_fun))

# make table
nest_df <- 
  nest_df %>%
  mutate(
    tbl = map(
      .x = model,
      ~ tbl_regression(
        .x,
      ) %>% 
        add_significance_stars(
          hide_se = TRUE,
          pattern = "{estimate}{stars}\\\\&({std.error})"
        ) %>%
        modify_header(estimate ~ "OLS\\\\&result")
    )
  )

# merge table
nest_df_m <- 
  tbl_merge(
    tbls = nest_df$tbl,
    tab_spanner = c("type1", "type2")
  )

# output merged table
nest_df_m  %>%
  as_kable_extra(
    format = "latex",
    booktabs = TRUE,
    escape = FALSE
    ) %>% 
  kable_styling(position = "center")

Answer 1

也许这符合您的需要。你可以换行

1. 添加 \\\\(在 Latex 代码中给出 \\)，
2. 添加 & 以将 std.error 与估计值放在同一列中，
3. 在 as_kable_extra 中设置 escape=FALSE。

    df %>% 
      tbl_regression() %>% 
      add_significance_stars(
        hide_se = TRUE,
        pattern = "{estimate}{stars}\\\\&({std.error})"
      ) %>%
      modify_header(estimate ~ "OLS\\\\&result") %>% 
      as_kable_extra(
        format = "latex",
        booktabs = TRUE,
        escape = FALSE
      )