library(dplyr)
library(ggplot2)
data(nat_map)
data(nat_data)
adelaide <- aec_extract_f(nat_data, ctr=c(138.6, -34.9), expand=c(2,3))
ggplot(data=nat_map) +
geom_polygon(aes(x=long, y=lat, group=group, order=order),
fill="grey90", colour="white") +
geom_point(data=adelaide, aes(x=long_c, y=lat_c), size=2, alpha=0.4,
colour="#f0027f") +
xlim(c(136, 142)) + ylim(-36, -33) +
coord_equal()
Run the code above in your browser using DataLab