data(spataustria)
head(spataustria)
pos<-spataustria
oldpar<-par(mar=c(4,4,0,0))
bord<-data.frame(
x=c(min(pos$x.coord),max(pos$x.coord),min(pos$x.coord),max(pos$x.coord)),
y=c(min(pos$y.coord),min(pos$y.coord),max(pos$y.coord),min(pos$y.coord))
)
plot(bord,type="n", xlab="x (m)", ylab="y (m)", asp=1, bty='n')
points(pos$x.coord,pos$y.coord,col=pos$plot.code,cex=0.5)
par(oldpar)
Run the code above in your browser using DataLab