plot4 .R and .png