if (FALSE) {
data(Zurich.dat)
coords <- Zurich.dat[,c("X_TREE", "Y_TREE")]
spp.name <- c("beech","maple","ash","other broadleaves",
"spruce","silver fir", "larch", "other coniferous")
spp.col <- c("yellow","red","orange","pink",
"green","dark green","black","gray")
plot(coords, col=spp.col[Zurich.dat$SPP+1],
pch=19, cex=0.5, ylab="Northing", xlab="Easting")
legend.coords <- c(23,240)
legend(legend.coords, pch=19, legend=spp.name,
col=spp.col, bty="n")
}
Run the code above in your browser using DataLab