So zeichnen sie die linie der besten anpassung in r (mit beispielen)

Sie können eine der folgenden Methoden verwenden, um eine Linie mit der besten Anpassung in R zu zeichnen:

Methode 1: Zeichnen Sie die Linie mit der besten Anpassung in die R-Basis

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

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

Methode 2: Zeichnen Sie die am besten geeignete Linie 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 )

Die folgenden Beispiele zeigen, wie die einzelnen Methoden in der Praxis angewendet werden.

Beispiel 1: Zeichnen der Linie der besten Anpassung in der R-Basis

Der folgende Code zeigt, wie eine Linie der besten Anpassung für ein einfaches lineares Regressionsmodell unter Verwendung der R-Basis gezeichnet wird:

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

Zögern Sie nicht, auch den Stil der Punkte und der Linie zu ändern:

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

Wir können auch den folgenden Code verwenden, um die beste Anpassungslinie schnell zu berechnen:

 #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

Die beste Anpassungsgerade lautet: y = -0,89 + 2,31x .

Beispiel 2: Zeichnen der am besten passenden Linie in ggplot2

Der folgende Code zeigt, wie man mit dem Datenvisualisierungspaket ggplot2 eine Best-Fit-Linie für ein einfaches lineares Regressionsmodell zeichnet:

 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 )

Fühlen Sie sich frei, auch die Ästhetik der Handlung zu ändern:

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

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie andere gängige Vorgänge in R ausgeführt werden:

So führen Sie eine einfache lineare Regression in R durch
So führen Sie eine multiple lineare Regression in R durch
So interpretieren Sie die Regressionsausgabe in R