ggplot2创建后添加标注、标题等元素失效问题求助

• 核心原因：ggplot2的+操作不会修改原有的图形对象，而是返回一个新的图形对象。你之前只执行temp_plot + ggtitle("Title")，但没把这个新对象存起来或者直接输出，所以看不到修改后的效果。

• 正确做法有两种：

  1. 直接打印叠加后的结果：

     temp_plot <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
     # 直接执行并打印新对象
     temp_plot + ggtitle("Title")
     

  2. 将新对象重新赋值给原变量（或新变量）：

     temp_plot <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
     # 把叠加后的结果存回temp_plot
     temp_plot <- temp_plot + ggtitle("Title")
     # 现在打印temp_plot就能看到标题了
     print(temp_plot)
     

• 针对你原本的循环添加annotate的需求，套用同样逻辑即可：每次叠加后更新图形对象，示例如下：

  temp_plot <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
  # 示例标注列表
  annotate_list <- list(
    list(label = "Car1", x = 2, y = 30),
    list(label = "Car2", x = 4, y = 15)
  )
  for (anno in annotate_list) {
    temp_plot <- temp_plot + annotate("text", x = anno$x, y = anno$y, label = anno$label)
  }
  print(temp_plot)
  

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