let plot[1-4].R direct plot to the png device instead of 'dev.copy'