data(nat_data_2016)
data(nat_map_2016)
library(ggplot2)
library(ggthemes)
ggplot(aes(map_id=id), data=nat_data_2016) +
geom_map(map=nat_map_2016) +
geom_point(data=nat_data_2016, aes(x=long_c, y=lat_c), inherit.aes=FALSE) +
expand_limits(x=nat_map_2016$long, y=nat_map_2016$lat) +
theme_map()
Run the code above in your browser using DataLab