plot4.R: par(mfrow) after png()