powered by
Add legend to side of figure
See legend() for details on input
Jonathan M. Lees<jonathan.lees.edu>
Rewrite of the legend function for easier manipulation.
legend
plot(c(0,1), c(0,1)) u <- par('usr') LEG <- jlegend( u[1], u[4], c("Vp", "Vs"), lwd=2, col=c(4,3), plot=FALSE )
Run the code above in your browser using DataLab