Bagaimana cara menambahkan persamaan regresi ke plot di r

Seringkali Anda mungkin ingin menambahkan persamaan regresi ke plot di R sebagai berikut:

Untungnya, hal ini cukup mudah dilakukan dengan menggunakan fungsi dalam paket ggplot2 dan ggpubr .

Tutorial ini memberikan contoh langkah demi langkah tentang cara menggunakan fungsi dalam paket ini untuk menambahkan persamaan regresi ke plot di R.

Langkah 1: Buat datanya

Pertama, mari buat beberapa data palsu untuk digunakan:

 #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

Langkah 2: Buat plot dengan persamaan regresi

Selanjutnya, kita akan menggunakan sintaks berikut untuk membuat plot sebar dengan garis regresi dan persamaan yang sesuai:

 #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) 

Ini memberitahu kita bahwa persamaan regresi yang sesuai adalah:

kamu = 2,6 + 4*(x)

Perhatikan bahwa label.x dan label.y menentukan koordinat (x,y) persamaan regresi yang akan ditampilkan.

Langkah 3: Tambahkan R-square ke plot (opsional)

Anda juga dapat menambahkan nilai R kuadrat dari model regresi jika Anda ingin menggunakan sintaks berikut:

 #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-kuadrat untuk model ini ternyata 0,98 .

Anda dapat menemukan lebih banyak tutorial R di halaman ini .