Update plot4.R

Use png() function instead of dev.copy()