ggplot2中添加geom_text为何耗时极长？求解决方案

问题重现 #

在使用ggplot2绘制六边形热力图时，添加geom_text后绘图耗时大幅飙升，以下是可复现的示例：

library(ggplot2)
d1 <- ggplot(diamonds, aes(carat, price)) + 
  geom_hex()
d2 <- d1+ 
  geom_text(x=3,y=5000,
            label="y = 0.0243x + 0.298\nR^2 = 0.648, p < 2.2e-16")

system.time({
  print(d1)
})
#   user  system elapsed 
#   0.11    0.01    0.13

system.time({
  print(d2)
})
#   user  system elapsed 
#   0.75    2.84    3.61 

少量数据下耗时增加27倍以上；实际业务场景中，耗时从3.65秒增至162.30秒（超44倍），强行终止还可能导致R崩溃。

问题原因 #

geom_text默认会绑定ggplot的全局数据集（示例中是5万多行的diamonds），哪怕你手动指定了固定的x、y坐标，它仍会对数据集中的每一行重复渲染一次文本——相当于画了5万多次同一段文字，这是耗时暴增的核心原因。

解决方法 #

方法1：用annotate()替代geom_text() #

annotate()是专门用于添加单个注释元素的函数，不会遍历整个数据集，效率和基础绘图一致：

d2 <- d1 + 
  annotate("text", x=3, y=5000,
           label="y = 0.0243x + 0.298\nR^2 = 0.648, p < 2.2e-16")

方法2：给geom_text指定单行数据集 #

如果一定要用geom_text，手动传入仅包含一行数据的数据集，避免重复渲染：

d2 <- d1 + 
  geom_text(data = data.frame(x=3, y=5000),
            aes(x=x, y=y),
            label="y = 0.0243x + 0.298\nR^2 = 0.648, p < 2.2e-16")

正常终止运行的方法 #

• 在RStudio中直接按Esc键，控制台环境下按Ctrl+C（Windows/Linux）或Cmd+C（Mac），这是最安全的终止方式。
• 如果终止后绘图设备卡住，运行dev.off()关闭当前绘图设备，释放资源可避免R崩溃。

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