手动修改modelsummary生成的LaTeX表格输出遇问题求解决

问题场景 #

使用R语言的modelsummary包生成LaTeX统计表格后，尝试通过拆分字符向量删除指定行，得到的输出无法正常用于TeX编译。

生成表格的代码 #

library(modelsummary)
library(tidyverse)

a <- lm(mpg ~ disp, data = mtcars)
b <- lm(mpg ~ cyl, data = mtcars)

table <- modelsummary(list(a,b), output = "latex")
table

尝试修改的错误代码 #

table <- str_split(table, "\n")[1][[1]]

# Remove two rows
table <- table[-c(11,12)]

table <- paste0(table, collapse = "\n")

table

错误原因 #

1. 字符拆分方式错误：str_split()返回的是列表，正确提取行向量的写法应为str_split(table, "\n")[[1]]，原代码的[1][[1]]会导致拆分结果异常。
2. 行索引定位错误：原代码删除的11,12行并非目标行，需要对应到LaTeX表格中实际要删除的行（比如cyl变量的两行对应索引9、10）。
3. 输出方式问题：直接打印字符串时，R会将反斜杠转义为\\显示，看起来像是无效代码，实际用cat()输出才能得到正确的LaTeX格式。

正确解决方法 #

方法1：正确处理字符向量的拆分与修改 #

先将LaTeX字符串拆分为行向量，删除目标行后重新拼接，最后用cat()输出正确格式：

library(modelsummary)
library(tidyverse)

a <- lm(mpg ~ disp, data = mtcars)
b <- lm(mpg ~ cyl, data = mtcars)

# 生成LaTeX表格
table_latex <- modelsummary(list(a,b), output = "latex")

# 正确拆分为行向量
table_rows <- str_split(table_latex, "\n")[[1]]

# 定位并删除目标行（示例删除cyl变量的两行，对应索引9、10）
table_rows_cleaned <- table_rows[-c(9,10)]

# 重新拼接为LaTeX字符串
table_latex_cleaned <- paste0(table_rows_cleaned, collapse = "\n")

# 输出可直接复制的LaTeX代码
cat(table_latex_cleaned)

执行上述代码后，控制台输出的内容可直接复制到.tex文件编译，不会有转义字符问题。

方法2：利用modelsummary自带参数生成目标表格（更推荐） #

手动修改容易出错，直接通过modelsummary的参数控制输出内容，一步到位：

• 过滤变量：用coef_omit参数指定要排除的系数（比如排除cyl）
• 自定义统计量：用gof_map定义要显示的统计项，无需后期删除

示例代码：

# 示例1：排除cyl变量的行
table_latex <- modelsummary(list(a,b), 
                           output = "latex",
                           coef_omit = "cyl")

# 示例2：自定义只显示指定统计量
gof_custom <- tribble(
  ~raw,        ~clean,          ~fmt,
  "nobs",      "Num.Obs.",      0,
  "r.squared", "R2",            3,
  "adj.r.squared", "R2 Adj.", 3
)

table_latex <- modelsummary(list(a,b), 
                           output = "latex",
                           gof_map = gof_custom)

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