حساب المتوسط الرباعي لبيانات شهرية في R

لحساب المتوسط الرباعي (quarterly average) لكل ثلاث قيم في مصفوفة (array)، يمكنك استخدام حلقة تكرارية (for loop) للانتقال بين القيم. هناك طريقتان لتحقيق ذلك، إما عن طريق تقسيم القيم إلى مجموعات من ثلاثة، أو عن طريق تجميع القيم الثلاثة وحساب المتوسط النهائي. في هذا المثال، سنقوم بتجميع القيم الثلاثة وحساب المتوسط النهائي. هذا مثال لكيفية تنفيذ ذلك باستخدام حلقة تكرارية في لغة R:

RCopy code
# تعريف المصفوفة مثالاً
monthly_data <- c(10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 110, 115, 120, 125, 130, 135, 140, 145, 150, 155, 160, 165, 170, 175, 180, 185, 190, 195, 200, 205, 210, 215, 220, 225, 230, 235, 240, 245, 250, 255, 260, 265, 270, 275, 280, 285, 290, 295, 300, 305, 310, 315, 320, 325, 330, 335, 340, 345, 350, 355, 360, 365, 370, 375, 380, 385, 390, 395, 400, 405, 410, 415, 420, 425, 430, 435, 440, 445, 450, 455, 460, 465, 470, 475, 480, 485, 490, 495, 500, 505, 510, 515, 520, 525, 530, 535, 540, 545, 550, 555, 560, 565, 570, 575, 580, 585, 590, 595, 600, 605, 610, 615, 620, 625, 630, 635, 640, 645, 650, 655, 660, 665, 670, 675, 680, 685, 690, 695, 700, 705, 710, 715, 720, 725, 730, 735, 740, 745, 750, 755, 760, 765, 770, 775, 780, 785, 790, 795, 800, 805, 810, 815, 820)

# تعريف متغير لحفظ المتوسطات الرباعية
quarterly_averages <- c()

# حلقة تكرارية لحساب المتوسطات الرباعية
for (i in seq(1, length(monthly_data), by=3)) {
  quarter_average <- mean(monthly_data[i:(i+2)])
  quarterly_averages <- c(quarterly_averages, quarter_average)
}

# طباعة المتوسطات الرباعية
print(quarterly_averages)

في هذا المثال، قمنا بتقسيم المصفوفة monthly_data إلى مجموعات من ثلاثة قيم، وحسبنا المتوسط لكل مجموعة، ثم قمنا بطباعة المتوسطات الرباعية. يمكنك تغيير المصفوفة monthly_data والتعديل على الحلقة التكرارية لتناسب بياناتك الفعلية.

بالتأكيد! يمكننا إضافة المزيد من المعلومات لتوضيح الحلقة التكرارية وكيفية عملها في هذا السياق:

1. في هذا السياق، نقوم بتحديد متغير quarterly_averages كمتغير فارغ، حيث سيتم تخزين المتوسطات الرباعية فيه.

2. يتم استخدام حلقة تكرارية for للانتقال عبر القيم في المصفوفة monthly_data. تستخدم الحلقة seq لتوليد تسلسل من الفهرسات التي تمثل بداية كل فترة رباعية (ثلاثة أشهر).

3. داخل كل تكرار من الحلقة، يتم حساب المتوسط الرباعي باستخدام الدالة mean على القيم الثلاثة المتتالية، ويتم تخزين هذا المتوسط في المتغير quarter_average.

4. المتوسط الرباعي الحالي يتم إضافته إلى المصفوفة quarterly_averages باستخدام الدالة c لإنشاء مصفوفة جديدة تحتوي على جميع المتوسطات الرباعية حتى الآن.

5. في النهاية، سيتم طباعة المصفوفة quarterly_averages التي تحتوي على المتوسطات الرباعية لكل ثلاثة أشهر.

هذا الحل يمكن تعديله بسهولة لاستخدامه مع بيانات حقيقية، عن طريق استبدال المصفوفة monthly_data بالمصفوفة الخاصة بك وضبط المتغير quarterly_averages والحلقة التكرارية وفقًا لاحتياجات البيانات الفعلية.