states <- map_data("state") south_coast <- subset(counties, region %in% c("texas", "oklahoma", "kansas")) ggplot(data = south_c