refresh plot4.r