Let’s first set up a basic plot to experiment with: library(legendry)#> Loading required package: ggplot2base<-ggplot(mpg, aes(displ,hwy,colour=cty))+geom_point()+labs(x="Engine displacement",y="Highway miles per gallon",col="City miles\nper gallon")+theme(axis.line=element_line()...