مهم: كل الأرقام أعلاه حقيقية من مراجع دولية. أما الأقسام التي تحمل عنوان “مؤشرات توقعية/سيناريوهات” فهي تقديرات تُستخدم للتخطيط، ويمكن تعديل افتراضاتها حسب بيانات السعودية أو المؤسسة.
يعرض الجدول التالي أهم مؤشرات العبء العالمي لألم أسفل الظهر وفق مراجع دولية، بهدف توثيق الأرقام الأساسية قبل الانتقال إلى الرسوم والتحليلات.
global_indicators <- tibble::tribble(
~المؤشر, ~السنة, ~القيمة_الرقمية, ~الوحدة, ~ملاحظة,
"عدد المصابين عالميًا", 2020, 619e6, "حالة", "تقدير عالمي (GBD/WHO)",
"عدد المصابين عالميًا (توقع)", 2050, 843e6, "حالة", "توقع عالمي حتى 2050",
"نسبة الزيادة (2020→2050)", 2050, 36.4, "%", "زيادة متوقعة تقريبًا"
)
global_indicators
| المؤشر | السنة | القيمة_الرقمية | الوحدة | ملاحظة |
|---|---|---|---|---|
| عدد المصابين عالميًا | 2020 | 6.19e+08 | حالة | تقدير عالمي (GBD/WHO) |
| عدد المصابين عالميًا (توقع) | 2050 | 8.43e+08 | حالة | توقع عالمي حتى 2050 |
| نسبة الزيادة (2020→2050) | 2050 | 3.64e+01 | % | زيادة متوقعة تقريبًا |
يوضح هذا الرسم الفارق بين عدد حالات ألم أسفل الظهر عالميًا في 2020 مقارنةً بتوقعات 2050 لإبراز اتجاه النمو على المدى الطويل.
years_seq <- seq(2020, 2050, by = 5)
# استيفاء خطي بين تقدير 2020 وتوقع 2050 (يمكن استبداله بنمو أُسّي عند توفر بيانات أدق)
cases_seq <- seq(619e6, 843e6, length.out = length(years_seq))
lbp_cases <- tibble(
year = years_seq,
cases = cases_seq
)
ggplot(lbp_cases, aes(x = year, y = cases)) +
geom_line(linewidth = 1.4, color = "#1f4e79") +
geom_point(size = 3, color = "#d62728") +
scale_x_continuous(breaks = years_seq) +
scale_y_continuous(labels = label_number(scale_cut = cut_short_scale())) +
labs(
title = "تطور عدد حالات ألم أسفل الظهر عالميًا (2020–2050)",
subtitle = "تدرج زمني كل 5 سنوات — استيفاء خطي بين تقديرات WHO/GBD",
x = "السنة",
y = "عدد الحالات"
) +
theme_minimal(base_size = 13)
ggplot(lbp_cases, aes(x = factor(year), y = cases)) +
geom_col(fill = "#2ca02c") +
scale_y_continuous(labels = label_number(scale_cut = cut_short_scale())) +
labs(
title = "عدد الحالات عالميًا حسب السنة",
subtitle = "تدرج كل 5 سنوات (استيفاء خطي بين 2020 و2050)",
x = "السنة",
y = "عدد الحالات"
) +
theme_minimal(base_size = 13)
تشير نتائج The Lancet Rheumatology إلى أن 38.8% من YLDs تعزى إلى عوامل مثل العوامل المهنية + التدخين + ارتفاع مؤشر كتلة الجسم (Ferreira وآخرون 2023).
yld_attrib <- tibble(
الفئة = c("عوامل قابلة للتعديل (مهنية/تدخين/BMI)", "عوامل أخرى"),
النسبة = c(38.8, 61.2)
)
ggplot(yld_attrib, aes(x = "", y = النسبة, fill = الفئة)) +
geom_col(width = 1) +
coord_polar(theta = "y") +
labs(
title = "نسبة من عبء الإعاقة المرتبط بعوامل قابلة للتعديل (تقدير عالمي)",
x = NULL, y = NULL
) +
theme_minimal(base_size = 13) +
theme(axis.text = element_blank(),
axis.ticks = element_blank(),
panel.grid = element_blank())
هذا الجزء يقدم نموذجًا تخطيطيًا قابلًا للتعديل لتقدير عدد الحالات سنويًا داخل مدينة أو منشأة اعتمادًا على افتراضات واضحة (السكان، الانتشار، طلب الرعاية، التكلفة).
هذا القسم ليس رقمًا عالميًا ثابتًا؛ هو نموذج
تخطيطي.
عدّل الافتراضات حسب بياناتك المحلية (معدلات انتشار سنوية، شدة الحالات،
فئات عمرية…).
# افتراضات قابلة للتعديل
population <- 1000000 # عدد السكان/الموظفين/المستفيدين
annual_prevalence <- 0.10 # انتشار سنوي تقديري (مثال: 10%)
care_seeking_rate <- 0.35 # نسبة من يطلبون علاجًا/زيارة
avg_cost_per_case <- 900 # متوسط تكلفة سنوية للحالة (ريال) - تقديري
estimated_annual_cases <- population * annual_prevalence
estimated_care_cases <- estimated_annual_cases * care_seeking_rate
estimated_annual_cost <- estimated_care_cases * avg_cost_per_case
tibble(
السكان = population,
"انتشار سنوي (افتراضي)" = percent(annual_prevalence),
"حالات سنوية (تقدير)" = round(estimated_annual_cases),
"حالات تتلقى رعاية (تقدير)" = round(estimated_care_cases),
"تكلفة سنوية (تقدير، ريال)" = round(estimated_annual_cost)
)
| السكان | انتشار سنوي (افتراضي) | حالات سنوية (تقدير) | حالات تتلقى رعاية (تقدير) | تكلفة سنوية (تقدير، ريال) |
|---|---|---|---|---|
| 1e+06 | 10% | 1e+05 | 35000 | 31500000 |
prev_grid <- seq(0.05, 0.20, by = 0.01)
sensitivity <- tibble(
prevalence = prev_grid,
annual_cases = population * prevalence,
care_cases = (population * prevalence) * care_seeking_rate,
cost = ((population * prevalence) * care_seeking_rate) * avg_cost_per_case
)
ggplot(sensitivity, aes(x = prevalence, y = cost)) +
geom_line(linewidth = 1) +
scale_x_continuous(labels = percent_format(accuracy = 1)) +
scale_y_continuous(labels = label_number(big.mark = ",", suffix = " ر.س")) +
labs(
title = "تحليل حساسية: العبء المالي التقديري حسب الانتشار السنوي",
x = "انتشار سنوي (افتراضي)",
y = "تكلفة سنوية تقديرية"
) +
theme_minimal(base_size = 13)
لتصبح التوقعات “دقيقة محليًا”، نحتاج (إن توفرت): - معدلات انتشار سنوية/شهرية في السعودية أو داخل المؤسسة - توزيع الأعمار والجنس - بيانات ساعات الجلوس/نوع الوظائف - تكاليف فعلية (زيارات، علاج طبيعي، تصوير، أدوية، غياب)