如何为texreg输出添加big.mark=","格式化整数（如观测数）

问题描述 #

如何给texreg生成的LaTeX表格中，Num. obs.（观测数）、Num. clusters（聚类数）、Num. groups（组数）这类整数值添加千位分隔符（如将1000格式化为1,000）？这些行可通过首列的标识文本识别。

可复现代码 #

# 数据模拟与回归模型
library(texreg)
set.seed(1)
x <- rnorm(1000)
z <- rnorm(1000)
y <- 5 + 2*x - z + rnorm(1000,0,40)/100

m1 <- lm(y~x)
m2 <- lm(y~z)
m3 <- lm(y~x+z)

# 原始texreg输出（无千位分隔符）
texreg(list(m1,m2,m3),
       caption = "Add big.marks, please!",
       label = NULL,
       model.names=c("M1","M2","M3"))

解决方案 #

方法一：正则表达式批量处理LaTeX文本 #

生成texreg的文本输出后，用正则匹配目标行的数字，替换为带千位分隔符的格式：

library(texreg)
library(stringr)

# 生成texreg的文本格式输出
tex_output <- texreg(list(m1,m2,m3), 
                     caption = "Added big.marks, thank you!", 
                     label = NULL, 
                     model.names=c("M1","M2","M3"),
                     return.type = "text")

# 定义需要添加千位分隔符的行标识
target_labels <- c("Num. obs.", "Num. clusters", "Num. groups")

# 遍历处理每个目标行
for (label in target_labels) {
  # 构建匹配模式：匹配行开头的标识，以及后续列的数字
  match_pattern <- paste0("^", label, "\\s+&\\s+", paste(rep("\\$?(\\d+)\\$?", length(list(m1,m2,m3))), collapse = "\\s+&\\s+"))
  
  # 替换数字为带千位分隔符的格式
  tex_output <- str_replace_all(tex_output, match_pattern, function(m) {
    nums <- str_extract_all(m, "\\d+")[[1]]
    formatted_nums <- format(as.numeric(nums), big.mark = ",")
    row_parts <- str_split(m, "\\s+&\\s+")[[1]]
    paste(row_parts[1], paste(paste0("$", formatted_nums, "$"), collapse = " & "), sep = " & ")
  })
}

# 输出处理后的LaTeX代码
cat(tex_output)

方法二：用override参数精准替换统计量 #

直接指定需要格式化的统计量，通过override参数传入已添加千位分隔符的数值：

library(texreg)

# 获取并格式化每个模型的观测数
formatted_nobs <- sapply(list(m1,m2,m3), function(model) {
  format(nobs(model), big.mark = ",")
})

# 生成带千位分隔符的texreg表格
texreg(list(m1,m2,m3),
       caption = "Added big.marks, thank you!",
       label = NULL,
       model.names=c("M1","M2","M3"),
       override = list("Num. obs." = formatted_nobs))

说明 #

• 方法一适合需要批量处理多个统计量（如同时处理观测数、聚类数）的场景，无需逐个定义统计量。
• 方法二更灵活精准，可针对特定统计量单独设置格式，避免正则匹配可能出现的误差。

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