gplot(Datos) +
geom_point(aes(x=s,y=Gdp)) +
geom_text(aes(x=s,y=Gdp,label=País),size=3) +
ylab("Tasa de crecimiento del PIB")+ xlab("tasa de ahorro")
1 respuesta
La forma más sencilla es usar un geom_smooth()
:
geom_smooth(aes(x=s,y=Gdp),
method = "lm",
se = FALSE)
Con method = "lm"
establecemos que se aplique el modelo líneal. Puedes simplificar el gráfico si haces un mapeo global:
ggplot(Datos, aes(x=s,y=Gdp)) +
geom_point() +
geom_text(aes(label=País),size=3) +
ylab("Tasa de crecimiento del PIB")+ xlab("tasa de ahorro") +
geom_smooth(method = "lm", se = FALSE)