Combine legend in ggplot2

Question

I have a plot of multiple geom_point and a single stat_function in ggplot2. Is there a way to show a single legend?

df         


        

Answer 1

Probably an easier alternative is to use override.aes as follows:

ggplot(df, aes(x = x, y = value)) +
  geom_point(aes(colour = variable, shape = variable), size = 3) +
  stat_function(aes(colour = "log2(x)"), fun = log2, size = 1.5) +
  guides(shape = FALSE,
         colour = guide_legend(override.aes = list(shape = c(16, 17, NA),
                                                   linetype = c("blank", "blank", "solid"))))

which results in: