Some R Scripts for drawing Plots