كيفية استخدام aline() في r لإضافة خطوط مستقيمة إلى المؤامرات

يمكن استخدام الدالة abline() في R لإضافة خط مستقيم واحد أو أكثر إلى قطعة أرض في R.

تستخدم هذه الوظيفة بناء الجملة التالي:

أبلاين (أ=NULL، ب=NULL، ح=NULL، v=NULL، …)

ذهب:

• أ، ب: القيم الفريدة التي تحدد أصل الخط وانحداره
• h: قيمة y للخط الأفقي
• v: قيمة x للخط العمودي

توضح الأمثلة التالية كيفية استخدام هذه الوظيفة عمليًا.

كيفية إضافة خطوط أفقية

الكود الأساسي لإضافة خط أفقي إلى قطعة أرض في R هو: abline(h = some value)

لنفترض أن لدينا مخطط التشتت التالي الذي يعرض قيم x و y في مجموعة بيانات:

 #define dataset
data <- data.frame(x = c(1, 1, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9, 10, 11, 11),
                   y = c(13, 14, 17, 12, 23, 24, 25, 25, 24, 28, 32, 33, 35, 40, 41))

#plot x and y values in dataset
plot(data$x, data$y, pch = 16)

لإضافة خط أفقي بالقيمة y = 20 يمكننا استخدام الكود التالي:

 abline(h = 20, col = 'coral2', lwd = 2)

يوضح التعليمة البرمجية التالية كيفية إضافة خط أفقي متصل إلى متوسط قيمة y وخطين أفقيين منقطين بانحراف معياري واحد أعلى وتحت القيمة المتوسطة:

 #create scatterplot for x and y
plot(data$x, data$y, pch = 16)

#create horizontal line at mean value of y
abline(h = mean(data$y), lwd = 2)

#create horizontal lines at one standard deviation above and below the mean value
abline(h = mean(data$y) + sd(data$y), col = 'steelblue', lwd = 3, lty = 2)
abline(h = mean(data$y) - sd(data$y), col = 'steelblue', lwd = 3, lty = 2)

كيفية إضافة خطوط عمودية

الكود الأساسي لإضافة خط عمودي إلى قطعة أرض في R هو: abline(v = بعض القيمة)

يوضح التعليمة البرمجية التالية كيفية إضافة خط عمودي إلى القيمة المتوسطة على الرسم البياني:

 #make this example reproducible
set.seed(0)

#create dataset with 1000 random values normally distributed with mean = 10, sd = 2
data <- rnorm(1000, mean = 10, sd = 2)

#create histogram of data values
hist(data, col = 'steelblue')

#draw a vertical dashed line at the mean value
abline(v = mean(data), lwd = 3, lty = 2)

كيفية إضافة خطوط الانحدار

الكود الأساسي لإضافة خط انحدار خطي بسيط إلى مخطط في R هو: abline(model)

يوضح التعليمة البرمجية التالية كيفية إضافة خط الانحدار الخطي المجهز إلى مخطط التشتت:

 #define dataset
data <- data.frame(x = c(1, 1, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9, 10, 11, 11),
                   y = c(13, 14, 17, 12, 23, 24, 25, 25, 24, 28, 32, 33, 35, 40, 41))

#create scatterplot of x and y values
plot(data$x, data$y, pch = 16)

#fit a linear regression model to the data
reg_model <- lm(y ~ x, data = data)

#add the fitted regression line to the scatterplot
abline(reg_model, col="steelblue")

لاحظ أننا نحتاج ببساطة إلى قيمة للتقاطع والانحدار لملاءمة خط انحدار خطي بسيط مع البيانات باستخدام الدالة abline().

لذا، هناك طريقة أخرى لاستخدام abline() ‎ لإضافة خط انحدار وهي التحديد الواضح للمعاملات الأصلية ومعاملات الانحدار لنموذج الانحدار:

 #define dataset
data <- data.frame(x = c(1, 1, 2, 3, 4, 4, 5, 6, 7, 7, 8, 9, 10, 11, 11),
                   y = c(13, 14, 17, 12, 23, 24, 25, 25, 24, 28, 32, 33, 35, 40, 41))

#create scatterplot of x and y values
plot(data$x, data$y, pch = 16)

#fit a linear regression model to the data
reg_model <- lm(y ~ x, data = data)

#define intercept and slope values
a <- coefficients(reg_model)[1] #intercept
b <- coefficients(reg_model)[2] #slope

#add the fitted regression line to the scatterplot
abline(a=a, b=b, col="steelblue")

لاحظ أن هذا ينتج نفس السطر كما كان من قبل.

يمكنك العثور على المزيد من دروس R على هذه الصفحة .