كيفية رسم خط أفضل ملاءمة في r (مع أمثلة)

يمكنك استخدام أي من الطرق التالية لرسم خط مناسب بشكل أفضل في R:

الطريقة الأولى: ارسم خط الملاءمة الأفضل في قاعدة R

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

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

الطريقة الثانية: رسم الخط الأنسب في 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 )

توضح الأمثلة التالية كيفية استخدام كل طريقة عمليًا.

مثال 1: رسم خط أفضل ملاءمة في قاعدة R

يوضح التعليمة البرمجية التالية كيفية رسم خط أفضل ملاءمة لنموذج الانحدار الخطي البسيط باستخدام أساس 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)) 

لا تتردد أيضًا في تعديل نمط النقاط والخط:

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

يمكننا أيضًا استخدام الكود التالي لحساب الخط الأفضل بسرعة:

 #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

تبين أن خط التوافق الأفضل هو: y = -0.89 + 2.31x .

مثال 2: رسم الخط الأنسب في ggplot2

يوضح التعليمة البرمجية التالية كيفية رسم خط مناسب لنموذج انحدار خطي بسيط باستخدام حزمة تصور البيانات 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 )

لا تتردد في تغيير جماليات الحبكة أيضًا:

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

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ العمليات الشائعة الأخرى في R:

كيفية إجراء الانحدار الخطي البسيط في R
كيفية إجراء الانحدار الخطي المتعدد في R
كيفية تفسير مخرجات الانحدار في R