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)
