如何在 stargazer 模型 table 中将负估计值涂成红色？

Question

是否可以在 stargazer table in R 中将负模型估计值的字体着色为红色？

这个想法是在 table.

中展示回归模型时更容易突出负估计和正估计

Answer 1

我认为 stargazer 开箱即用是不可能的，但您可以编写自己的函数来完成此操作。

例如，使用 LaTeX 包 xcolor，我们可以使用命令 \textcolor{red}{text} 创建红色文本。由于 stargazer 将负数打印为 $-$<number>，我们可以使用正则表达式 \$-\$[0-9] 查找所有负数（+ 逗号等的一些逻辑），并将它们包装在 \textcolor{red}{text} 中.

这是一个工作示例：

make_red <- function(str) {
  
  paste0(
    "\textcolor{red}{",
    str,
    "}"
  )
  
}

library(dplyr)

mtcars %>% 
  # Add some negative numbers
  mutate(
    negative_values = -cyl
  ) %>% 
  stargazer::stargazer() %>% 
  stringr::str_replace_all(
    pattern = "\$-\$[0-9][.]?[0-9]*",
    replacement = make_red
  ) %>% 
  writeLines()

请注意，这将打印两个 LaTeX 输出，因为 stargaze() 总是在调用时打印它的输出。你只需要最下面的那个。

记得在 LaTeX 文档的开头添加 \usepackage{xcolor}。

编译LaTeX后的结果：

如何在 stargazer 模型 table 中将负估计值涂成红色？

How to color negative estimates in red in stargazer model table?

r

stargazer