second commot for plot1.r