如何在R中将summarytools生成的对象导出为PNG格式？

summarytools的view()默认输出HTML格式，要导出成PNG，推荐两种实用方法：

方法1：转成flextable后导出图片 #

先把summarytools的表格对象转为flextable，再直接存成PNG：

• 先安装并加载所需包：

install.packages(c("summarytools", "flextable", "webshot2"))
library(summarytools)
library(flextable)
library(webshot2)

• 生成表格对象（不要直接调用view()）：

tab_obj <- stby(meta.data$Age, meta.data$Diagnosis, descr,
                transpose = T, stats = c("mean", "sd"))

• 转换为flextable并导出为PNG：

ft <- as_flextable(tab_obj)
save_as_image(ft, path = "年龄诊断描述表.png") # 可自定义文件名

方法2：先存HTML再转PNG #

先把表格导出为HTML文件，再用webshot工具转换为PNG：

• 安装并加载webshot2包：

install.packages("webshot2")
library(webshot2)

• 导出表格为HTML文件：

print(tab_obj, file = "descr_table.html")

• 将HTML转换为PNG：

webshot("descr_table.html", "descr_table.png")

如果转换失败，先运行webshot2::install_chromium()安装必要的浏览器组件。

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