图像文字出现模糊，我一开始以为是Export包的原因，于是尝试：
library(officer)
library(rvg)
ppt <- read_pptx()
ppt <- add_slide(ppt, layout = "Title and Content", master = "Office Theme")
ppt <- ph_with(ppt, value = dml(ggobj = p_roc),
location = ph_location_fullsize())
print(ppt, target = "2024+2025roc曲线图_可编辑.pptx")
可是结果仍然出现错误**
library(Cairo)
library(export)
#1. 用 Cairo 生成 300 dpi 的 PNG（可改成 600）
Cairo(width = 6, height = 5, file = "roc_temp.png",
type = "png", dpi = 300, bg = "white")
print(p_roc) # 一定要 print()
dev.off()
- 把高清 PNG 插到 PPT（不要写 dpi 参数）
graph2ppt(file = "2024+2025roc曲线图.pptx",
width = 6, height = 5, append = TRUE,
img = "roc_temp.png")
还是不行**
最后发现是showtext包的原因;
pacman::p_load(tidyverse, caret, xgboost, pROC, ggthemes, readxl, janitor,
patchwork, ggsci, showtext, shapviz, ggbeeswarm, RColorBrewer)
showtext_auto()