如何在 R 中添加对数回归

Question

x <- shapefile('42GP.shp')
A <- x$PatchArea1
df <- read.csv("CI.csv",header = T)
R <- df$mean
plot(R~A)
fit <- lm(R~log(A))
summary(fit)
coef(fit)
x=A
y=predict(fit,newdata=list(A)),interval="confidence"))
matlines(x,y,lwd=2)

My code is above, and the picture is as follow. [1]: https://i.stack.imgur.com/gdZ4W.png What can I fix my code, I need it draw like as follow. Thanks [2]: https://i.stack.imgur.com/0Afnt.png

Answer 1

With your sample data, this work for me:

library(ggplot2)

x <- 1:20 
set.seed(1)
y <- 3*log(x)+5+rnorm(20)

fit <- lm(y~log(x))

df <- data.frame(x = x, y =y , 
                 predict = fit$coefficients[1] +
                   fit$coefficients[2] * log(x))

ggplot(data = df) +
  geom_point(aes(x=x,y=y)) +
  geom_line(aes(x=x,y=predict))