相关疑难解决方法(0)

在向绘图添加注释文本时,我注意到geom_text()产生了难看的锯齿状文本,同时annotate()产生了流畅,漂亮的文本.有谁知道为什么会发生这种情况,如果有办法解决它？我知道我可以在annotate()这里使用,但有些情况可能geom_text()会更好,我想找到一个解决办法.此外,geom_text()不能打算给出看起来不好的文字,所以要么我做错了,要么我遇到了某种微妙的副作用.

这里有一些假数据和生成图表的代码,以及显示结果的图像.

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)