Formatting data and showing number of employer group certificates and individual contracts overtime.

egm <- read_excel("C:\\Users\\Efehan\\Desktop\\egm.xlsx")
egm <- egm %>% mutate(date,date2=dmy(date))
egm$n_of_employer_group_certificates <- as.numeric(egm$n_of_employer_group_certificates)
egm$n_of_ind_contracts <- as.numeric(egm$n_of_ind_contracts)

ggplot(data=egm,aes(x=date2))+
geom_line(aes(y=n_of_ind_contracts),color="red")+
geom_line(aes(y=n_of_employer_group_certificates),color="blue")+
facet_wrap(.~pension_fund_company)+
theme_bw()+
ggtitle("Number of Individual Contracts and Group Employer Certificates Overtime")