write script in ecah plot.R file