Suppose I have a graph like this:
library(tidyverse) df <- mtcars %>% group_by(cyl, gear) %>% summarise(hp_mean = mean(hp)) ggplot(df, aes(x
