plot_tasmania.R

#install.packages(c("rnaturalearth", "rnaturalearthhires"))

library(rnaturalearth)
oz <-  ne_states("australia")
tas <- subset(oz, name == "Tasmania")

## trad spatial plot
library(sp)
plot(tas)

## gg-spatial plot
library(ggplot2)

tasdf <- fortify(tas)

## Regions defined for each Polygons

ggplot(tasdf, aes(x = long, y = lat, group = group)) + geom_polygon(fill = "grey")