Forecasting, Time Series Analysis, Fourier Transform, R, Ml So Good.
theme_bw() g3<-ggplot(data = subset(spec.df)) + geom_line(aes(x = freq, y = spec.3)) + scale_x_log10("Period (hours)", breaks = hours.freqs, labels = hours.labels) + scale_y_log10()+ theme_bw() gridExtra::grid.arrange(g1,g2,g3,ncol=1) You see the spectral results per hour, in three different ways.