Skip to content

Instantly share code, notes, and snippets.

@ericnovik
Created August 14, 2012 23:18
Show Gist options
  • Save ericnovik/3353843 to your computer and use it in GitHub Desktop.
Save ericnovik/3353843 to your computer and use it in GitHub Desktop.
par (mar=c(3,3,2,1), mgp=c(2,.7,0), tck=-.012, las=1)
with(iris, plot(Sepal.Length, Sepal.Width,
col=as.numeric(Species)+1, pch=20))
lbs <- levels(iris$Species)
legend('topright', legend=lbs,
col=2:4, cex=0.7, pch=20, box.lwd=0.5, pt.cex=0.6)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment