r - Rの散布図標準偏差の計算

Question

R を使用して、x=y 対角線を表す線 ( ablineを使用) と組み合わせて、2 つのベクトルの散布図を作成しました。対角線からドットの標準偏差を計算し、1 番目と 3 番目の分位点の間にある領域に色を付けたいと考えています。
これを行う方法がわかりません。すべての助けをいただければ幸いです!!! 前もって感謝します。ハジ。

Answer 1

さて、あなたがしたいことはこれです：

# sample data
x <- rnorm(50,0,2)
y <- x+rnorm(50,0,2)

# construct polygons
div <- quantile(y-x,c(0.25,0.75))
x1 <- min(c(x,y))
x2 <- max(c(x,y))


plot(x,y,type="n")
polygon(x=c(x1,x1,x2,x2),y=c(x1+div,(x2+div)[c(2,1)]),col="grey")
abline(0,1)
points(x,y)

私がすることはこれです：

qplot(x,y,geom="point") + stat_smooth(method="lm")

計算したい標準偏差は

sd(y-x)

おそらく探している正しい測定値は次のとおりです。

sd(residuals(lm(y~x)))

意味のある結果を得るには、x 上の y の線形モデルの観点から考える必要があります。x と y の関係が 1 対 1 でない場合、正しいモデルが 1 対 1 であると仮定しても意味がありません。また、y に対する x の関係が 1 対 1 でない場合、yx は正規分布しないため、sd を意味のある方法で解釈することは困難になります。