是否可以修复 geom_text() 生成的锯齿状、质量差的文本？

在向图中添加注释文本时，我注意到geom_text()产生难看的、锯齿状的文本，同时annotate()生成流畅、美观的文本。有谁知道为什么会发生这种情况以及是否有任何方法可以解决它？我知道我可以使用annotate()在这里，但可能存在这样的情况geom_text()更好，我想找到解决办法。还，geom_text()不可能intended给出看起来很糟糕的文本，所以要么我做错了什么，要么我遇到了某种微妙的副作用。

这是一些假数据和生成图表的代码，以及显示结果的图像。

library(ggplot2)
age = structure(list(age = c(41L, 40L, 43L, 44L, 40L, 42L, 44L, 45L, 
        44L, 41L, 43L, 40L, 43L, 43L, 40L, 42L, 43L, 44L, 43L, 41L)), 
        .Names = "age", row.names = c(NA, -20L), class = "data.frame")
ggplot(age, aes(age)) + 
  geom_histogram() +
  scale_x_continuous(breaks=seq(40,45,1)) +
  stat_bin(binwidth=1, color="black", fill="blue") +
  geom_text(aes(41, 5.2, 
            label=paste("Average = ", round(mean(age),1))), size=12) +
  annotate("text", x=41, y=4.5, 
           label=paste("Average = ", round(mean(age$age),1)), size=12)

geom_text，尽管没有直接使用任何东西agedata.frame，仍在使用它作为其数据源。因此，它在绘图上放置了 20 个“Average=42.3”副本，每一行一个。正是多次覆盖才让它看起来如此糟糕。geom_text旨在将文本放在绘图上，其中信息来自 data.frame （直接或间接在原始数据中给出）ggplot call). annotate专为简单的一次性添加而设计，就像您一样（它创建了一个geom_text，注意数据源）。

如果你真的想使用geom_text()，只需重置数据源：

ggplot(age, aes(age)) + 
  scale_x_continuous(breaks=seq(40,45,1)) +
  stat_bin(binwidth=1, color="black", fill="blue") +
  geom_text(aes(41, 5.2, 
            label=paste("Average = ", round(mean(age$age),1))), size=12,
            data = data.frame()) +
  annotate("text", x=41, y=4.5, 
           label=paste("Average = ", round(mean(age$age),1)), size=12)