回帰直線を対数x目盛りに追加

Question

私はRの対数x軸を使用してプロットしている非常に広いx範囲のデータを持っています。MS Excelを使用してデータをプロットし、データセットと期待される結果（下の画像）を見れば、私が見たいと思っているものです。

私はデータOKをプロットし、回帰モデルを実行することができ、この使用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 
    ) 
) 

そして、ここで私がこれまでにしようとしてきたコードです。

1）：

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 

私は3件の問い合わせがあります。基本的な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)