R Scripts for creating simple graphs