rpositionggplot2legend

Position legend in first plot of facet


I would like to put my plot legend inside the plot, inside the first plot of a facet.

Here is some example code:

df=data.frame(
 x=runif(10),
 y=runif(10),
 facet=rep(c("a","b"),5),
 color=rep(c("red","blue"),5))

ggplot(data=df,aes(x=x,y=y,color=color))+
 geom_point()+
 facet_wrap(~facet,ncol=1)

Here is the resulting plot:

plot with legend on outside

And here is roughly how I would like it to look:

plot with legend inside

Thanks for any help you can provide!


Solution

  • Assuming your plot is saved as p

    p + theme(
      legend.position = c(0.9, 0.6), # c(0,0) bottom left, c(1,1) top-right.
      legend.background = element_rect(fill = "white", colour = NA)
    )
    

    If you want the legend background partially transparent, change the fill to, e.g., "#ffffffaa".