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

Question

根据gtsummay 包的文档，您可以使用<br>inadd_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")

标签： rgtsummary

Answer 1

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

1. 添加\\\\（\\在乳胶代码中给出），
2. 添加一个&以将其std.error与估计值放在同一列中，
3. 设置escape=FALSE在as_kable_extra.

    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
      )