将拟合的指数方程添加到ggplot 2中

install.packages("ggplot2")

library(ggplot2)

df <- data.frame(x = c(1, 2, 3, 4, 5), y = c(2, 4, 8, 16, 32))

p <- ggplot(data = df, aes(x = x, y = y)) + geom_point()

fit <- nls(y ~ a * exp(b * x), data = df, start = list(a = 1, b = 1))

a_est <- coef(fit)[1]
b_est <- coef(fit)[2]

curve_df <- data.frame(x = seq(min(df$x), max(df$x), length.out = 100))
curve_df$y <- predict(fit, newdata = curve_df)

p <- p + geom_line(data = curve_df, aes(x = x, y = y), color = "red")

print(p)