# NOT RUN {
library(ggplot2)
ggplot(age_at_mar, mapping = aes(x = age)) +
geom_histogram(binwidth = 3) +
labs(x = "Age", y = "Count", title = "Age at first marriage, US Women",
subtitle = "Source: National Survey of Family Growth Survey, 2006 - 2010")
# }
Run the code above in your browser using DataLab