R scripts and png figures