R:如何用文本框注释ggplot？

Question

我希望添加一个小的白色文本框,在我的ggplot图的主体中添加自定义文本.我要添加的文字是识别我添加到图中的水平线.

  ggplot(cb_emp) +  
  geom_point(aes(x = grossunits, 
                 y = rate, 
                 color = as.factor(outlier))
                 , alpha = 1/4) +
  scale_color_discrete(name  ="Outcome",
                        breaks=c(0, 1),
                        labels=c("Not outlier", "Outlier")) +
  geom_hline(aes(yintercept = meancbrate)) + 
  geom_vline(aes(xintercept = meanac) +
  annotate("text", x = max(grossunits), y = meancbrate, label = "avg rate")  

这是我得到的情节:

这是我想要的情节(或类似的东西):

如果有一种简单的方法可以实现这一点,请告诉我.

非常感谢帮助!

Answer 1

你可以简单地改为

annotate("label", x = max(grossunits), y = meancbrate, label = "avg rate") 

这将使用geom_label而不是geom_text,所以你得到一个围绕标签的矩形.