<div dir="ltr">Buenos días, <div><br></div><div>Estoy intentando representar una curva suavizada con smooth.spline() usando ggplot2 en lugar de plot, que ofrece un gráfico más simple: </div><div><br></div><div>attach(cars)</div><div><br></div><div>cars.spline1 <- smooth.spline(speed, dist)</div><div><br></div><div><b># gráfico simple</b></div><div>plot(speed, dist)<br></div><div>lines(cars.spline1, col="red")</div><div><img src="cid:ii_l34jc1jo0" alt="image.png" width="452" height="243"><br></div><div><b># ggplot2</b></div><div>Quisiera usar ggplot2, pero el resultado que obtengo no es el mismo: </div><div><br></div><div>pet = ggplot() + geom_point(data = cars, aes(x = speed, y = dist), color = "blue") + geom_line(data = cars, aes(x = speed, y = cars.spline1$data$y, color = "red"))<br>> pet<br></div><div><img src="cid:ii_l34jgwc21" alt="image.png" width="452" height="243"><br></div><div><br></div></div>