new R method for plotting hourly