使用annotate创建多幅ggplot图形时出现异常问题求助

核心原因 #

这是ggplot延迟计算特性结合annotate变量作用域导致的问题：

• ggplot对象不是创建时就生成图像，而是打印时才执行所有绘图代码。
• 如果你在annotate()里使用了全局环境的变量（比如用来指定位置、文本的x/y/label变量），当你创建完G1、G2后继续创建G3时，大概率会修改这些变量的值——打印G1、G2时，annotate会调用变量的最新值（也就是G3创建时的数值），而不是创建G1、G2时的原始值，自然就显示异常了。
• 即时打印没问题，是因为当时变量还没被后续代码修改，刚好能取到正确的值。

解决办法（保留annotate的前提下） #

有两种靠谱的处理方式：

1. 强制固定annotate的参数值
   创建每个图时，要么直接把参数写死在annotate里，要么用!!强制求值，把变量值绑定到ggplot对象中：

   # 直接写死参数
   G1 <- ggplot(data1, aes(x, y)) +
     geom_boxplot() +
     annotate("text", x = 2, y = 15, label = "G1标注")
   
   # 用!!强制绑定变量当前值
   g1_x <- 2
   g1_y <- 15
   G1 <- ggplot(data1, aes(x, y)) +
     geom_boxplot() +
     annotate("text", x = !!g1_x, y = !!g1_y, label = "G1标注")
   

2. 用local()隔离变量环境
   把每个ggplot的创建代码放在local()里，让变量只在当前图的局部环境生效，不会被后续代码覆盖：

   G1 <- local({
     x_pos <- 2
     y_pos <- 15
     ggplot(data1, aes(x, y)) +
       geom_boxplot() +
       annotate("text", x = x_pos, y = y_pos, label = "G1标注")
   })
   
   G2 <- local({
     x_pos <- 5  # 这里的x_pos和G1的互不干扰
     y_pos <- 12
     ggplot(data2, aes(x, y)) +
       geom_boxplot() +
       annotate("text", x = x_pos, y = y_pos, label = "G2标注")
   })
   

内容的提问来源于stack exchange，提问作者Seyit Ali KAYIŞ