# NOT RUN {
library(tigris)
library(ggplot2)
library(ggthemes)
nat <- native_areas(cb = TRUE)
nat_map <- fortify(nat)
gg <- ggplot()
gg <- gg + geom_map(data=nat_map, map=nat_map,
aes(x=long, y=lat, map_id=id),
color="black", fill="white", size=0.25)
gg <- gg + coord_map(xlim=c(-179.1506, -129.9795), # alaska
ylim=c(51.2097, 71.4410))
gg <- gg + theme_map()
gg
# }
Run the code above in your browser using DataLab