使用ggtext为ggplot离散X轴添加自定义图片标签时报错

问题根源 #

你使用的GitHub链接是图片的网页预览地址（blob路径），而非原始图片文件的直接访问链接。ggtext会尝试读取这个网页的HTML内容，而非真正的JPEG文件，因此触发了“不是JPEG文件”的解压错误。

修复方案 #

1. 获取GitHub原始图片链接 #

打开GitHub上的图片页面（比如你提供的https://github.com/hcuve/halo_faces/blob/main/ggtextimgs/comp1.JPG），点击页面右上角的「Raw」按钮，复制弹出的直接图片链接。这类链接格式通常为：https://raw.githubusercontent.com/用户名/仓库名/分支名/图片路径

2. 修改代码中的图片链接 #

将labels里的src值替换为原始图片链接，修改后的完整代码如下：

labels <- c(
  setosa = "<img src='https://raw.githubusercontent.com/hcuve/halo_faces/main/ggtextimgs/comp1.JPG'
    width='100' /><br>*I. setosa*",
  virginica = "<img src='https://raw.githubusercontent.com/hcuve/halo_faces/main/ggtextimgs/comp2.JPG'
    width='100' /><br>*I. virginica*",
  versicolor = "<img src='https://raw.githubusercontent.com/hcuve/halo_faces/main/ggtextimgs/comp3.JPG'
    width='100' /><br>*I. versicolor*"
)


ggplot(iris, aes(Species, Sepal.Width)) +
  geom_boxplot() +
  scale_x_discrete(
    name = NULL,
    labels = labels
  ) +
  theme(
    axis.text.x = element_markdown(color = "black", size = 11)
  )

3. 本地图片的注意事项 #

如果使用本地图片，需确保路径格式正确：

• Windows系统用双反斜杠\\或正斜杠/，比如"C:/my_images/comp1.JPG"
• 相对路径要匹配当前工作目录，可通过getwd()查看当前工作目录

额外排查点 #

• 确认图片确实是标准JPEG格式（后缀.JPG或.jpeg），可通过系统图片查看器验证格式完整性
• 若仍报错，尝试重启R会话并清除缓存后再运行代码

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