Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
filter(Hour >= 8 & Hour <=17)%>% filter(CallDirection=="Incoming" & DoneInIVR==0 & AgentSequence==1)%>% count()%>% tidyr::drop_na()%>% ggplot(., aes(x=Date, y=n, color=RecordType))+ geom_point()+ geom_line()+ facet_wrap(~Month, scales="free_x")+ theme_bw() df%>% group_by(RecordType, Date, Month)%>%