#plot age
age_dist ← psid %>%
ggplot(aes(age)) +
geom_bar()
view plot
age_dist
filter to reasonable age group
psid_clean ← psid %>% filter(age < 18 | age > 75)
plot flitered age
age_dist_clean ← ggplot(psid_clean, aes(age)) + geom_bar()
age_dist_clean