R scripts and PNG plots