使用ggsave保存绘图时公式位置偏移的解决方法咨询

以下是几个简便可行的方案，针对你遇到的stat_poly_eq生成的公式移位问题：

1. 使用Cairo设备保存 #

Cairo设备对带公式的文本渲染稳定性更好，能避免随机移位问题。需要先安装Cairo包，然后修改ggsave命令：

# 仅第一次使用时安装包
install.packages("Cairo")
# 调用Cairo设备保存图片
ggsave("t1_b_radish.jpg", device = Cairo::CairoJPEG)

2. 替换相对定位为绝对NPC坐标 #

你当前使用的vjust=30属于基于文本行高的相对定位，不同渲染设备对该值的解析可能存在差异。改用ggpmisc包的geom_text_npc（stat_poly_eq支持该geom），用0-1范围的绝对画布坐标定位：

stat_poly_eq(aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~")),
             formula = formula, geom = "text_npc", 
             npcx = 0.2, npcy = 0.1, # npcx控制水平位置（左→右：0→1），npcy控制垂直位置（下→上：0→1）
             parse = TRUE, size = 3)

这种绝对定位方式不会随设备渲染逻辑变化，能彻底解决移位问题。

3. 明确指定统一字体 #

在绘图主题或ggsave中指定固定字体，避免设备默认字体差异导致的排版偏移：

# 在绘图主题中设置全局文本字体
ggplot(...) +
  # 你的绘图元素代码
  theme(text = element_text(family = "Arial")) + # 替换为你系统可用的字体
  stat_poly_eq(...)

# 保存时同步指定字体
ggsave("t1_b_radish.jpg", family = "Arial")

4. 先存为矢量图再转格式 #

如果以上方法仍有问题，可先保存为PDF（矢量格式，公式排版绝对稳定），再批量转换为JPG：

# 保存为PDF
ggsave("t1_b_radish.pdf")
# 使用magick包批量转换格式
library(magick)
image_read_pdf("t1_b_radish.pdf") %>%
  image_write("t1_b_radish.jpg", quality = 90)

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