Buenos dÃas,
Estoy intentando representar una curva suavizada con smooth.spline() usando
ggplot2 en lugar de plot, que ofrece un gráfico más simple:
attach(cars)
cars.spline1 <- smooth.spline(speed, dist)
*# gráfico simple*
plot(speed, dist)
lines(cars.spline1, col="red")
[image: image.png]
*# ggplot2*
Quisiera usar ggplot2, pero el resultado que obtengo no es el mismo:
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"))