在循环中为ggplot2图表添加Logo的异常问题求助

问题根源 #

直接用grid::grid.raster()在循环中单独绘制Logo，会和ggplot的绘图流程冲突：

• 第一次循环时，调用grid.raster()还未生成ggplot图形，Logo会直接输出到空白绘图设备上
• 后续print(p)生成新的ggplot图形时，会覆盖之前的Logo上下文
• 最后一次循环中，print(p)之后无后续绘图操作，Logo无法渲染到最终图形中

正确解决方案：将Logo整合进ggplot对象 #

不用单独调用grid.raster()，而是把Logo转成grob对象，通过annotation_custom()添加到ggplot中，让每个ggplot对象自带Logo，循环打印时就不会出现异常。

修改后的完整代码：

---
title: "Logo Plot Question"
format: 
  html:
    page-layout: full
editor: source
execute:
  echo: false
  warning: false
editor_options: 
  chunk_output_type: console
---

```{r}
# 加载所需包
library(ggplot2)
library(grid)
library(magick)

# 创建数据
data <- data.frame(
  name=c("A","B","C","D","E") ,
  value=c(25,49,36,18,45)
)

# 读取Logo并转为grob对象
logo <- magick::image_read("https://upload.wikimedia.org/wikipedia/commons/thumb/1/1b/R_logo.svg/1448px-R_logo.svg.png")
logo_grob <- grid::rasterGrob(logo, width = unit(0.5, 'inches'))

for (i in 1:2){

  print("Start plot")
  
  p <- ggplot(data, aes(name, value)) + 
    geom_bar(stat = "identity", width = 1,  aes(fill = value)) +
    coord_polar(clip = "off") +
    scale_y_continuous(limits = c(-10, 50)) +
    theme_void() +
    theme(legend.position = "none") +
    labs(title = paste0("Plot ", i)) +
    # 将Logo添加到绘图中
    annotation_custom(logo_grob, 
                     xmin = -Inf, xmax = Inf, 
                     ymin = -Inf, ymax = Inf) +
    # 确保Logo不被裁剪
    coord_cartesian(clip = "off")

  print(p)

  print("End plot")

}

## 关键修改说明
1. 将Logo转为`rasterGrob`对象，适配ggplot的图层系统
2. 使用`annotation_custom()`把Logo嵌入ggplot，通过`xmin/xmax/ymin/ymax`控制显示范围（设为全局范围可让Logo居中显示）
3. 添加`coord_cartesian(clip = "off")`，避免Logo被绘图区域裁剪

如果需要调整Logo位置，可修改`annotation_custom()`的坐标参数，比如：
```r
annotation_custom(logo_grob, 
                 xmin = 2, xmax = 3, 
                 ymin = 40, ymax = 50)

即可将Logo固定在指定坐标范围内。

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