R中webr::PieDonut存文件丢失内层饼图问题求助

可行解决方案 #

1. 替换ggsave为基础绘图设备手动输出 #

ggsave对部分ggplot扩展包的自定义图层渲染支持不足，改用R基础绘图设备直接输出：

# 初始化png设备
png("piedonut_fix.png", width = 10, height = 8, units = "in", res = 300)
# 打印图表
print(finalpie)
# 关闭设备
dev.off()

2. 直接复制RStudio绘图窗口内容 #

既然右键保存能得到完整图表，用代码模拟这个捕获逻辑：

# 先在RStudio中渲染图表
finalpie
# 复制当前绘图内容到文件
dev.copy(png, "piedonut_copy.png", width = 10, height = 8, units = "in", res = 300)
dev.off()

3. 检查并更新/回退webr版本 #

该问题大概率是webr的渲染bug，先确认版本并尝试更新：

# 查看当前版本
packageVersion("webr")
# 更新至CRAN最新版
install.packages("webr")
# 若需安装开发版
# devtools::install_github("cardiomoon/webr")

如果最新版仍有问题，可尝试回退到之前的稳定版本（需借助remotes指定版本）：

remotes::install_version("webr", version = "0.1.6")

4. 用grid包强制渲染所有图层 #

PieDonut的内层饼图可能属于独立grid图层，ggsave未捕获，改用grid.draw强制输出：

library(grid)
png("piedonut_grid.png", width = 10, height = 8, units = "in", res = 300)
grid.draw(finalpie)
dev.off()

5. 临时方案：转网页后截图 #

若以上方法无效，可将图表导出为网页再截图：

library(webshot)
library(htmltools)
# 保存为html文件
save_html(finalpie, "piedonut.html")
# 截图生成png
webshot("piedonut.html", "piedonut_webshot.png", vwidth = 1000, vheight = 800)
# 首次使用需安装phantomjs
# webshot::install_phantomjs()

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