如何将stargazer生成的回归表格直接保存为JPG等图片格式？

stargazer本身不支持直接导出图片格式，但可以通过「先导出为中间格式再转换」的方式实现，以下是几种实用方案：

方案1：HTML转图片（最简便） #

借助webshot包将stargazer生成的HTML表格转成图片，步骤如下：

1. 安装并加载所需包：

install.packages(c("stargazer", "webshot"))
library(stargazer)
library(webshot)
# 首次运行需安装依赖的phantomjs
webshot::install_phantomjs()

2. 生成HTML表格并转存为JPG：

data(mtcars)
model1 <- lm(mpg ~ hp + drat + wt, data=mtcars)
model2 <- lm(mpg ~ hp + drat + wt + disp, data=mtcars)

# 导出HTML格式的回归表格
stargazer(model1, model2,
          dep.var.labels = "",
          omit.stat = c("f", "adj.rsq"),
          type="html",
          out = "reg_table.html")

# 将HTML文件转为JPG图片，可调整vwidth/vheight控制尺寸
webshot("reg_table.html", "reg_table.jpg", vwidth = 800, vheight = 400)

方案2：LaTeX转图片（适合高精度需求） #

如果需要更高精度的图片，可以先导出LaTeX表格，编译为PDF后再转成图片：

1. 导出LaTeX表格：

stargazer(model1, model2,
          dep.var.labels = "",
          omit.stat = c("f", "adj.rsq"),
          type="latex",
          out = "reg_table.tex")

2. 编译TeX为PDF并转图片：

install.packages("pdftools")
library(pdftools)
# 编译TeX文件为PDF（需本地安装TeX环境，比如TeX Live或MikTeX）
system("pdflatex reg_table.tex")
# 将PDF第一页转为JPG，dpi控制分辨率
pdf_convert("reg_table.pdf", format = "jpg", pages = 1, dpi = 300)

方案3：借助gt包直接生成图片 #

可以把stargazer的文本表格转为gt表格对象，再导出为图片：

install.packages(c("stargazer", "gt"))
library(stargazer)
library(gt)

data(mtcars)
model1 <- lm(mpg ~ hp + drat + wt, data=mtcars)
model2 <- lm(mpg ~ hp + drat + wt + disp, data=mtcars)

# 捕获stargazer生成的文本表格内容
text_table <- capture.output(stargazer(model1, model2,
                                       dep.var.labels = "",
                                       omit.stat = c("f", "adj.rsq"),
                                       type="text"))

# 转为gt表格并调整样式
gt_table <- gt(data.frame(text_table)) %>%
  tab_options(
    table.border.top.style = "hidden",
    table.border.bottom.style = "hidden",
    column_labels.hidden = TRUE,
    table.font.size = 12
  )

# 保存为JPG图片
gtsave(gt_table, "reg_table.jpg")

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