plot1.R

the script for the first plot