Come disegnare la linea di miglior adattamento in r (con esempi)

È possibile utilizzare uno dei seguenti metodi per tracciare una linea di adattamento migliore in R:

Metodo 1: traccia la linea che meglio si adatta alla base R

 #create scatter plot of x vs. y
plot(x, y)

#add line of best fit to scatter plot
abline(lm(y ~ x))

Metodo 2: traccia la linea più adatta in ggplot2

 library (ggplot2)

#create scatter plot with line of best fit
ggplot(df, aes (x=x, y=y)) +
    geom_point() +
    geom_smooth(method=lm, se= FALSE )

Gli esempi seguenti mostrano come utilizzare ciascun metodo nella pratica.

Esempio 1: tracciare la linea di miglior adattamento nella base R

Il codice seguente mostra come tracciare una linea di adattamento ottimale per un modello di regressione lineare semplice utilizzando la base R:

 #define data
x <- c(1, 2, 3, 4, 5, 6, 7, 8)
y <- c(2, 5, 6, 7, 9, 12, 16, 19)

#create scatter plot of x vs. y
plot(x, y)

#add line of best fit to scatter plot
abline(lm(y ~ x)) 

Non esitate a modificare anche lo stile dei punti e della linea:

 #define data
x <- c(1, 2, 3, 4, 5, 6, 7, 8)
y <- c(2, 5, 6, 7, 9, 12, 16, 19)

#create scatter plot of x vs. y
plot(x, y, pch= 16 , col=' red ', cex= 1.2 )

#add line of best fit to scatter plot
abline(lm(y ~ x), col=' blue ', lty=' dashed ') 

Possiamo anche utilizzare il seguente codice per calcolare rapidamente la linea più adatta:

 #find regression model coefficients
summary(lm(y ~ x))$coefficients

              Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.8928571 1.0047365 -0.888648 4.084029e-01
x 2.3095238 0.1989675 11.607544 2.461303e-05

La retta di miglior adattamento risulta essere: y = -0.89 + 2.31x .

Esempio 2: tracciare la linea più adatta in ggplot2

Il codice seguente mostra come tracciare una linea più adatta per un modello di regressione lineare semplice utilizzando il pacchetto di visualizzazione dei dati ggplot2 :

 library (ggplot2)

#define data
df <- data. frame (x=c(1, 2, 3, 4, 5, 6, 7, 8),
y=c(2, 5, 6, 7, 9, 12, 16, 19))

#create scatter plot with line of best fit
ggplot(df, aes (x=x, y=y)) +
    geom_point() +
    geom_smooth(method=lm, se= FALSE )

Sentiti libero di cambiare anche l’estetica della trama:

 library (ggplot2)

#define data
df <- data. frame (x=c(1, 2, 3, 4, 5, 6, 7, 8),
y=c(2, 5, 6, 7, 9, 12, 16, 19))

#create scatter plot with line of best fit
ggplot(df, aes (x=x, y=y)) +
    geom_point(col=' red ', size= 2 ) +
    geom_smooth(method=lm, se= FALSE , col=' purple ', linetype=' dashed ') +
    theme_bw() 

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre operazioni comuni in R:

Come eseguire una regressione lineare semplice in R
Come eseguire la regressione lineare multipla in R
Come interpretare l’output della regressione in R