plot4.R produces correct plot