単純なフィッティングからx値をプロットし、プロット内にそれを記入してください

Question

私は非常に簡単な質問がありますが、これまでのところ簡単な解決策は見つかりませんでした。私がフィットさせて、yが特に価値があるx軸の値を表示したいデータがあるとしましょう。この場合、y = 0のときにxの値が何であるかを考えてみましょう。モデルはフィッティングのために非常に単純なy〜xですが、そこからxの値を推定する方法はわかりません。とにかく、

サンプルデータ

library(ggplot2) 
library(scales) 
df = data.frame(x= sort(10^runif(8,-6,1),decreasing=TRUE), y = seq(-4,4,length.out = 8)) 

ggplot(df, aes(x = x, y = y)) + 
    geom_point() + 
    #geom_smooth(method = "lm", formula = y ~ x, size = 1,linetype="dashed", col="black",se=FALSE, fullrange = TRUE)+ 
    geom_smooth(se=FALSE)+ 
    labs(title = "Made-up data") + 
    scale_x_log10(breaks = c(1e-6,1e-4,1e-2,1), 
       labels = trans_format("log10", math_format(10^.x)),limits = c(1e-6,1))+ 
    geom_hline(yintercept=0,linetype="dashed",colour="red",size=0.6) 

私は10^-10形式に1E-10の入力に変換し、プロット上でそれに注釈を付けたいと思います。私がプロットに示したように。

ありがとうございます！

Answer 1

geom_smooth()は滑らかなラインを計算するR関数を使用するので、あなたはggplot()環境外の予測値を得ることができます。 1つの選択肢は、予測されるy値が0である場合に、approx()を使用してx値の線形近似を得ることである。

# Define formula 
formula <- loess(y~x, df) 

# Approximate when y would be 0 
xval <- approx(x = formula$fitted, y = formula$x, xout = 0)$y 

# Add to plot 
ggplot(...) + annotate("text", x = xval, y = 0 , label = yval)