كيفية إضافة تسمية توضيحية إلى abline في R (مع أمثلة)

r
# ضبط البذرة العشوائية لضمان تكرارية النتائج
set.seed(123)

# توليد بيانات تجريبية تمثل درجات أداء
performance_scores <- rnorm(n = 50, mean = 50, sd = 8) # إنشاء مخطط الانتشار الأساسي وتنسيق المحاور plot(performance_scores, main = "توزيع درجات الأداء مع الخط المرجعي للمتوسط", xlab = "معرف العينة (الفرد)", ylab = "درجة الأداء", pch = 19, col = "steelblue", las = 1) # حساب القيمة الإحصائية للمتوسط mean_val <- mean(performance_scores) # إسقاط الخط المرجعي الأفقي باستخدام abline abline(h = mean_val, col = "firebrick", lwd = 2, lty = 2) # حساب الإحداثي السيني قرب الحافة اليسرى ومقدار الإزاحة الصادية x_pos <- 5 y_offset <- (par("usr")[4] - par("usr")[3]) * 0.03 y_pos <- mean_val + y_offset # إسقاط التسمية التوضيحية عبر دالة text text(x = x_pos, y = y_pos, labels = paste("المتوسط الحسابي =", round(mean_val, 2)), col = "firebrick", font = 2, cex = 0.9)