Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
df%>% dplyr::mutate(newdate = with(., ymd(Date) + hms(QuarterHour)))%>% group_by(RecordType, newdate, Month)%>% filter(!RecordType %in% c("AgentState", "Callback call"))%>% filter(CallDirection=="Incoming" & DoneInIVR==0 & AgentSequence==1)%>% count()%>% tidyr::drop_na()%>% ggplot(., aes(x=newdate,