# NOT RUN {
library(eechidna)
library(dplyr)
library(ggmap)
nat_map16 <- nat_map_download(2016)
nat_map16 %>%
filter(elect_div=='MELBOURNE') %>%
qmplot(long, lat, data=., color='red', size=5,
xlab=NA,ylab=NA) +
theme(legend.position = 'none')
# }
Run the code above in your browser using DataLab