contains cool plots R code for graphing time point