R语言利用Export包导出pptx格式的文件有错误的原因

图像文字出现模糊，我一开始以为是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()

2. 把高清 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()

只要删除showtext包和showtext_auto()，问题立马解决