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，因此您会在标签周围得到一个矩形。

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

R: How can I annotate a ggplot with a text box?

r

ggplot2

annotate