如何在modelsummary中设置多行窄列标签？

针对datasummary_correlation变量标签、回归模型名称在PDF中超出边距的问题，可通过以下几种方式实现多行窄列效果：

1. 手动拆分标签/模型名 #

直接在标签或模型名称中插入LaTeX换行命令\\，让内容自动拆分为多行：

• 变量标签处理：通过labelled包给变量添加带换行的标签，或直接在datasummary_correlation的参数中指定：

library(modelsummary)
library(labelled)

# 为变量添加带换行的标签
mtcars$mpg <- labelled(mtcars$mpg, label = "Miles per\\Gallon")
mtcars$disp <- labelled(mtcars$disp, label = "Displacement\\(cu.in.)")

# 生成带多行标签的相关矩阵
datasummary_correlation(mtcars[, c("mpg", "disp", "hp")], output = "latex")

• 模型名称处理：在modelsummary的model.names参数中直接拆分模型名：

mod1 <- lm(mpg ~ disp, data = mtcars)
mod2 <- lm(mpg ~ disp + hp, data = mtcars)

modelsummary(list(mod1, mod2), 
             model.names = c("Model 1\\(Base)", "Model 2\\(Full)"),
             output = "latex")

2. 自定义LaTeX列宽 #

通过指定LaTeX表格的列格式，强制设置列宽，避免内容溢出：

• 相关矩阵：使用tabular参数定义列宽（p{宽度}为固定宽度列）：

datasummary_correlation(mtcars[, c("mpg", "disp", "hp")],
                        output = "latex",
                        tabular = "l*{3}{p{2cm}}") # 第一列为行标签，后3列设为2cm宽

• 回归模型：通过latex参数的tabular选项设置列格式：

modelsummary(list(mod1, mod2),
             output = "latex",
             latex = list(tabular = "l*{2}{p{3cm}}")) # 第一列为系数名，后2列设为3cm宽

注意：使用该方法需确保LaTeX环境加载了array包，可在RMarkdown的YAML头部添加：

header-includes:
  - \usepackage{array}

3. 用kableExtra自动调整或缩放表格 #

将modelsummary输出转为kable对象后，用kableExtra工具调整列宽或自动缩放：

library(kableExtra)

# 处理相关矩阵
corr_table <- datasummary_correlation(mtcars[, c("mpg", "disp", "hp")], output = "kable")
corr_table %>%
  kable_styling(latex_options = "scale_down") # 自动缩放至页面宽度
  # 或手动指定列宽：column_spec(1:4, width = "2cm")

# 处理回归模型
mod_table <- modelsummary(list(mod1, mod2), output = "kable")
mod_table %>%
  kable_styling(latex_options = "scale_down") %>%
  column_spec(1, width = "3cm") %>% # 单独设置系数名列宽
  column_spec(2:3, width = "2.5cm") # 设置模型列宽

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