[R-es] ggplot2 vs plot

	
No suele recibir correos electrónicos de egarense21 en gmail.com. Por qué 
esto es importante <https://aka.ms/LearnAboutSenderIdentification>
	

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.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"))

pet

image.png

On 13-05-2022, at 10:34, David Aguinaga <egarense21 en gmail.com> wrote:

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.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"))

pet

<image.png>

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"))