library(ggplot2)
library(maps)
usa_data = map_data("usa")
ggplot(usa_data, aes(long, lat, fill = region)) +
geom_polygon() + theme_map()
ggplot(usa_data, aes(long, lat, fill = region)) +
facet_wrap(~region, scales = "free") +
geom_polygon() + theme_map()
Run the code above in your browser using DataLab