data(largeplot)
head(largeplot)
df<-largeplot
pine <- df[df$spp.code==1,]
spruce <- df[df$spp.code==2,]
birch <- df[df$spp.code==3,]
plot(spruce$x.coord,spruce$y.coord,cex=(spruce$dbh)/30,col="blue")
points(birch$x.coord,birch$y.coord,cex=(birch$dbh)/30,col="green")
points(pine$x.coord,pine$y.coord,cex=(pine$dbh)/30,col="red")
Run the code above in your browser using DataLab