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

Specify a . as the shape symbol for your curve and a blank line for your points:

p <- ggplot(df, aes(x=x, y=value)) +
  geom_point(aes(colour=variable, shape=variable, linetype = variable), size = 3) +
  stat_function(aes(colour="log2(x)", shape = "log2(x)", linetype = "log2(x)"), fun=log2) +
  scale_shape_manual(values = setNames(c(16, 17, 46), c("a", "b", "log2(x)"))) +
  scale_linetype_manual(values = setNames(c(0, 0, 1), c("a", "b", "log2(x)")))
print(p)