plot1.R copy to png