What's the best way to annotate this ggplot2 plot? [R]

0

Issue

Here’s a plot:

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)

I’ve been experimenting with labeling the geom_hline in a few different ways, each of which does something I want but has a problem that the other methods don’t have. annotate(), used above, is nice – the text is resizeable, black, and easy to position. But it can only be placed within the plot itself, not outside the plot like the axis labels. It also makes an "a" appear in the legend, which I can’t dismiss with legend = FALSE.

legend = FALSE works with geom_text, but I can’t get geom_text to just be black – it seems to be getting tangled up in the line colorings.

grid.text lets me put the text anywhere I want, but I can’t seem to resize it.

I can definitely accept the text being inside of the plot area, but I’d like to keep the legend clean.

Solution

Aesthetics specified in the initial ggplot() call are propagated down through all of the geoms. But if you don’t like it you can specify aesthetics in any layer instead.

So, to prevent geom_text from inheriting the color aesthetic, simply remove “color” from the aes() of your ggplot() call and include a call to aes(color=factor(am)) within your two stat_smooth() calls.

Answered By – Owen

This Answer collected from stackoverflow, is licensed under cc by-sa 2.5 , cc by-sa 3.0 and cc by-sa 4.0

Leave A Reply

Your email address will not be published.

This website uses cookies to improve your experience. We'll assume you're ok with this, but you can opt-out if you wish. Accept Read More