### Race ethnicity by class
### Education
### Education
edu_all <- ggplot(data = ses, aes(x = year,
y = pedu,
na.rm = T)) +
geom_line(stat = "summary") +
xlab("Years") + ylab("Percent with 4+ years college") +
ggtitle("Overall Percentage of people with 4+ yeas of college") +
theme_dark()
edu_city <- ggplot(data = ses, aes(x = year,
y = pedu,
group = city,
color = city,
na.rm = T)) +
geom_line(stat = "summary") +
xlab("Years") + ylab("Percent with 4+ years college") +
ggtitle("Percentage of people with 4+ yeas of college by City") +
theme_dark()
edu_class <- ggplot(data = ses, aes(x = year,
y = pedu,
group = class,
color = class,
na.rm = T)) +
geom_line(stat = "summary") +
facet_grid(~city)+
xlab("Years") + ylab("Percent with 4+ years college") +
ggtitle("Percentage of people with 4+ yeas of college by City by class") +
theme_dark()
edu_all
edu_city
edu_class
### Income
## Contextual Variables
### Access to food
### Building Permits