将回归线添加到对数x尺度

Question

我在R中使用对数x轴绘图的非常宽的x范围内有一些数据。当我使用MS Excel绘制数据并添加线性趋势线时，结果输出我希望看到我的数据集和预期结果（下图）。

我想实现这个使用R.我可以绘制数据确定，并运行回归模型，但[R似乎并不希望添加回归线/曲线。

这里是我的数据：

data <- 
    data.frame(
    x = c(
     6.37E-05, 
     0.000584271, 
     0.001044085, 
     0.00011272, 
     3.95E-05, 
     6.05E-05, 
     0.000277963, 
     0.001800305, 
     3.70E-05, 
     0.002588335, 
     0.000710123, 
     0.000148309, 
     0.001069184, 
     0.001877917, 
     0.01086776, 
     0.043686462, 
     0.000276426 
    ), 
    y = c(
     -0.3375, 
     -0.35, 
     -0.35, 
     -0.35, 
     -0.3, 
     -0.35, 
     -0.3625, 
     -0.375, 
     -0.3, 
     -0.3625, 
     -0.3, 
     -0.3375, 
     -0.29, 
     -0.34, 
     -0.4, 
     -0.48, 
     -0.3375 
    ) 
) 

而且这里是我一直到目前为止的代码。

attach(data) 
    plot(data$x,data$y,log="x",xlab="independent variable", 
    ylab="dependent variable") 
model<-lm(data$y~data$x) 
abline(model) # THIS STEP DOESN'T WORK 

我有三个疑问：

1）。如何在基本R中的y〜logx图上显示回归线？ 2）。我如何重复1）。使用ggplot？ 3）。当回归线/曲线开始“倾斜”时，如何找到（log）x值？

谢谢。

Answer 1

你能否让这个例子可以重现？ 我认为这可能会工作。

dataframe %>% 
ggplot(aes(x = log(x), y = y) + 
geom_point() + 
geom_smooth(method = "loess") + 
xlab("independent variable") 

这使用dplyr和ggplot2。

Answer 2

ggplot(data, aes(x, y)) + geom_point() + stat_smooth(method = "lm") 

ggplot(data, aes(x, y)) + geom_point() + stat_smooth(method = "lm") + 
    coord_trans(x = "log10") 

正如你所看到的，有没有点时的回归线 “开始 '探底'。”

---

更新

你的情节之前如果登录变换你的x值，你结束了这样的数字：

如果你真正感兴趣是变化点分析，你可以适应。

data.fit <- nls(100*y ~ pmin(plat, intx + slx*log(x)), 
        data = data, 
        start = list(plat = -32, intx = -60, slx = -4), 
        control = nls.control(warnOnly = T)) 
summary(data.fit) 
coef(data.fit)