R のプロットに回帰式を追加する方法

多くの場合、次のように回帰式を R のプロットに追加することができます。

幸いなことに、これはggplot2およびggpubrパッケージの関数を使用すると非常に簡単に実行できます。

このチュートリアルでは、これらのパッケージの関数を使用して R のプロットに回帰方程式を追加する方法を段階的に示します。

ステップ 1: データを作成する

まず、操作する偽のデータを作成しましょう。

 #make this example reproducible
set. seeds (1)

#create data frame
df <- data. frame (x = c(1:100))
df$y <- 4*df$x + rnorm(100, sd=20)

#view head of data frame
head(df)

  xy
1 1 -8.529076
2 2 11.672866
3 3 -4.712572
4 4 47.905616
5 5 26.590155
6 6 7.590632

ステップ 2: 回帰式を使用してプロットを作成する

次に、次の構文を使用して、近似された回帰直線と方程式を含む散布図を作成します。

 #load necessary libraries
library (ggplot2)
library (ggpubr)

#create plot with regression line and regression equation
ggplot(data=df, aes (x=x, y=y)) +
        geom_smooth(method=" lm ") +
        geom_point() +
        stat_regline_equation(label. x =30, label. y =310) 

これにより、近似された回帰式は次のようになります。

y = 2.6 + 4*(x)

label.xとlabel.yは、表示する回帰式の (x,y) 座標を指定することに注意してください。

ステップ 3: プロットに R2 乗を追加する (オプション)

次の構文を使用する場合は、回帰モデルの R 2 乗値を追加することもできます。

 #load necessary libraries
library (ggplot2)
library (ggpubr)

#create plot with regression line, regression equation, and R-squared
ggplot(data=df, aes (x=x, y=y)) +
        geom_smooth(method=" lm ") +
        geom_point() +
        stat_regline_equation(label. x =30, label. y =310) +
stat_cor( aes (label=..rr.label..), label. x =30, label. y =290) 

このモデルのR 二乗は0.98であることがわかります。

このページでは、その他の R チュートリアルを見つけることができます。