Fixing plot4.R