R中的指数回归线

Question

我正在绘制一些数据，并试图通过数据点绘制指数回归线。我对如何做到这一点进行了相当多的研究，最后发现了一个我可以理解和执行的指令。但是，当我继续对其他图使用相同的方法时，回归线似乎与数据点不匹配。我不知道为什么。请问我能得到一些帮助吗？

This 链接是我找到指令的地方。

以下是我的代码和结果：

exponential.model <- lm(A~log(B), AB)
bvalues <- seq(0,180,0.1)
exponential <- predict(exponential.model, list(B = bvalues))
plot(A~B, AB, log="y")
lines(bvalues, exponential, lwd = 2, col = "red")

exponential.model <- lm(C~log(D), CD)
dvalues <- seq(0,1380,0.1)
exponential <- predict(exponential.model, list(D = dvalues))
plot(C~D, CD, log="y")
lines(dvalues, exponential, lwd = 2, col = “red”)

Answer 1

我认为您的代码很好。您的问题只是指数模型不是数据的合适模型，而且拟合度很差。