Update plot1.R

Added print to device (PNG) - code complete