## Not run:
# 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")
#
#
# ## End(Not run)
Run the code above in your browser using DataLab