a5data <- as.data.frame(midwest) ggplot(a5data, aes(x = percbelowpoverty)) + geom_histogram(binwidth=5)
