updating plot4.R