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