R scripts to draw plots