r - 注释这个 ggplot2 图的最佳方法是什么？ [R]

Question

这是一个情节:

library(ggplot2)
ggplot(mtcars, aes(x = factor(cyl), y = hp, group = factor(am), color = factor(am))) +
    stat_smooth(fun.data = "mean_cl_boot", geom = "pointrange") +
    stat_smooth(fun.data = "mean_cl_boot", geom = "line") +
    geom_hline(yintercept = 130, color = "red") +
    annotate("text", label = "130 hp", x = .22, y = 135, size = 4)

我一直在尝试用几种不同的方式来标记 geom_hline，每种方式都可以实现我想要的功能，但都存在其他方法没有的问题。上面使用的 annotate() 很好 - 文本可以调整大小，黑色，并且易于定位。但它只能放置在绘图本身内，而不能像轴标签一样放置在绘图之外。它还使图例中出现一个“a”，我无法使用 legend = FALSE 将其忽略。

legend = FALSE 可与 geom_text 配合使用，但我无法让 geom_text 变成黑色 - 它似乎与线条颜色纠缠在一起。

grid.text 让我可以将文本放置在我想要的任何位置，但我似乎无法调整它的大小。

我绝对可以接受文本位于绘图区域内，但我想保持图例干净。

Answer 1

初始 ggplot() 调用中指定的美学会向下传播到所有几何图形。但如果您不喜欢它，您可以在任何层中指定美观性。

因此，为了防止 geom_text 继承颜色美感，只需从 ggplot() 调用的 aes() 中删除“color”，并在两个 stat_smooth() 中包含对 aes(color=factor(am)) 的调用来电。