# NOT RUN {
library(eechidna)
library(dplyr)
library(ggplot2)
nat_map16 <- nat_map_download(2016)
nat_data16 <- nat_data_download(2016)
nat_data16 <- nat_data16 %>% select(-c(x,y)) # remove existing cartogram coordinates
nat_data_cart <- aec_add_carto_f(nat_data16)
# Map theme
library(ggthemes)
ggplot(data=nat_data_cart, aes(map_id=id)) +
geom_map(map = nat_map16, fill="grey90", colour="white") +
geom_point(aes(x=x, y=y), size=2, alpha=0.4,
colour="#572d2c", inherit.aes=FALSE) +
expand_limits(x=nat_map16$long, y=nat_map16$lat) +
theme_map() + coord_equal()
# }
Run the code above in your browser using DataLab