move the contents of script.r to the functional blocks make_pollution_wrap_figures.r and tidy_data_maker.r