modificado: plot4.R