Very interesting, thanks. In the R scale_x_continuous line you can replace the c('Jan', 'Feb', 'Mar', ..., 'Dec') vector with the…