Cómo representar una curva logarítmica en R

Problema

Queremos ajustar una curva logarítmica a un diagrama de dispersión.

library(ggplot2)
ggplot(mpg, aes(displ, hwy)) +
  geom_point()

Solución

Paquete base

plot(hwy ~ displ, mpg)
logEstimate <- lm(hwy ~ log(displ), data = mpg)
curve(coef(logEstimate)[1] + coef(logEstimate)[2] * log(x), add = TRUE)

ggplot2

ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  stat_smooth(method = "lm", formula = y ~ log(x))

Referencias

• stackoverflow