studio - R-combinado geom_vline y geom_smooth en la leyenda