ggplot2中缺少自定义注释Grob

Question

我试图添加一个自定义文本注释grob到我的情节，根据网站http://zevross.com/blog/2014/08/04/beautiful-plotting-in-r-a-ggplot2-cheatsheet-3。我正在使用这个技术，这样我就可以添加一个规范化的坐标。当我添加grob时，文本不会出现在情节中。我以前也用过这个手术，效果就像冠军一样。为了我的生命，我不明白为什么这个不起作用。

这里的最小示例是：

len = 100
pd = data.frame(x = runif(50)*len - len/2, y = runif(50)*len - len/2)

my_grob = grobTree(textGrob('Some Text', x=0.5,  y=0.5, hjust=0.5, gp=gpar(col='black', fontsize=12, fontface="italic")))

rp = ggplot() + theme_bw() +
  theme(axis.text = element_blank(), axis.ticks = element_blank(), axis.title = element_blank()) +
  theme(panel.grid = element_blank(), panel.border = element_blank()) +
  geom_point(data = pd, aes(x = x, y = y)) +
  coord_equal(xlim = c(-len/2, len/2)*1.1, ylim = c(-len/2, len/2)*1.1) +
  annotation_custom(my_grob)
rp

有人能帮我看看我在这里错过了什么吗？我认为这可能是主题的改变，但当我把它们去掉时，问题仍然存在。(是的，我说过我可以把它们从上面移除，使它变得更小.但我要让它完全生效)。谢谢你的见解。

Answer 1

正如RStudent在上面的评论中所指出的，我所需要做的就是选择我的数据集之一，将其提供给ggplot()构造函数。虽然这样做有效，但我希望我不必这样做。