R: geom_bar() not rendering a bar graph


#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