Updates plot4.R