rm(list=ls())
set.seed(424242) 

library(readr)
library(ggplot2)
data1 <- read_csv('../age_percentages.csv',show_col_types = FALSE)

head(data1)