Jak dodać równanie regresji do wykresu w r

Często możesz chcieć dodać równanie regresji do wykresu w R w następujący sposób:

Na szczęście można to całkiem łatwo zrobić, korzystając z funkcji zawartych w pakietach ggplot2 i ggpubr .

W tym samouczku przedstawiono krok po kroku przykład użycia funkcji z tych pakietów w celu dodania równania regresji do wykresu w języku R.

Krok 1: Utwórz dane

Najpierw utwórzmy fałszywe dane do pracy:

 #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

Krok 2: Utwórz wykres z równaniem regresji

Następnie użyjemy następującej składni, aby utworzyć wykres rozrzutu z dopasowaną linią regresji i równaniem:

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

To mówi nam, że dopasowane równanie regresji ma postać:

y = 2,6 + 4*(x)

Należy pamiętać, że etykiety.x i label.y określają współrzędne (x,y) równania regresji do wyświetlenia.

Krok 3: Dodaj kwadrat R do wykresu (opcjonalnie)

Możesz także dodać wartość R do kwadratu modelu regresji, jeśli chcesz użyć następującej składni:

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

Okazuje się, że R-kwadrat dla tego modelu wynosi 0,98 .

Więcej samouczków dotyczących języka R można znaleźć na tej stronie .