Añadido diagrama de dispersión y ajuste de modelos con ggplot2