تعيش الأسرة السعودية اليوم لحظة مفصلية بين مؤشرين متعاكسين:
هذه الثنائية (انخفاض الزواج/ارتفاع الطلاق) لا تمثل مجرد أرقام منفصلة، بل هي صورة مركبة لاستقرار الأسرة في المجتمع السعودي، وانعكاس مباشر على:
في منصة أرقامي ننطلق من قناعة راسخة:
🧩 فهم المشكلة بالأرقام هو الخطوة الأولى نحو الحل.
ولا نكتفي بتوصيف الأزمة، بل نحمل خطة متكاملة ومدروسة لمعالجة ملف استقرار الأسرة، تشمل:
هذا التقرير يجمع بين: - بيانات الزواج لعام 2024 (منسوبة إلى موقع إحصائيات ehsaeyat.com، وتُعد بيانات تجميعية تحتاج تأكيدًا رسميًا). - وبيانات الطلاق لعام 2025 المنشورة ومنسوبة إلى الهيئة العامة للإحصاء.
مع نماذج تحليلية وتنبؤية تساعد صانع القرار وكل مهتم على رؤية الصورة الكاملة.
يهدف هذا التقرير إلى تقديم قراءة كمية وتحليلية لحالة الزواج والطلاق في السعودية خلال السنوات الأخيرة، مع التركيز على:
وذلك من أجل: - قياس مستوى استقرار الأسرة. - تحديد المناطق والفئات الأكثر عرضة للخطر. - تمهيد الطريق لحلول عملية مبنية على البيانات.
في هذا القسم نعرض صورة عامة للزواج استنادًا إلى الأرقام المنشورة لعام 2024، مع التأكيد على أنها تحتاج لتأكيد رسمي.
marriage_summary <- data.frame(
المؤشر = c("نسبة النساء المتزوجات من إجمالي النساء",
"نسبة غير المتزوجات حتى عمر 34 سنة"),
القيمة_التقديرية = c("≈ 62%", "≈ 66%"),
مصدر_البيان = c("موقع إحصائيات (ehsaeyat.com)",
"موقع إحصائيات (ehsaeyat.com)")
)
kbl(marriage_summary,
caption = "ملخص تقديري لمؤشرات الزواج في السعودية 2024 (تحتاج تأكيدًا رسميًا)") |>
kable_styling(full_width = FALSE)
| المؤشر | القيمة_التقديرية | مصدر_البيان |
|---|---|---|
| نسبة النساء المتزوجات من إجمالي النساء | ≈ 62% | موقع إحصائيات (ehsaeyat.com) |
| نسبة غير المتزوجات حتى عمر 34 سنة | ≈ 66% | موقع إحصائيات (ehsaeyat.com) |
⚠️ تنبيه مهم داخل التقرير:
هذه المؤشرات مستندة إلى مصدر ثانوي (موقع إحصائيات) وتحتاج إلى تأكيد من الهيئة العامة للإحصاء قبل استخدامها في تقارير رسمية أو قرارات سياسية.
divorce_data <- data.frame(
الفئة = c("الطرفان سعوديان", "أحد الطرفين غير سعودي", "الطرفان غير سعوديين"),
عدد_الحالات = c(50117, 4184, 3294)
) |>
dplyr::mutate(
النسبة_المئوية = round(100 * عدد_الحالات / sum(عدد_الحالات), 1),
category_en = dplyr::case_when(
الفئة == "الطرفان سعوديان" ~ "Both Saudis",
الفئة == "أحد الطرفين غير سعودي" ~ "One non-Saudi",
الفئة == "الطرفان غير سعوديين" ~ "Both non-Saudis",
TRUE ~ "Other"
)
)
kbl(
divorce_data[, c("category_en", "عدد_الحالات", "النسبة_المئوية")],
col.names = c("Category", "Number of Cases", "Percentage"),
caption = "Distribution of Divorce Cases by Nationality – Saudi Arabia 2025",
align = "c"
) |>
kable_styling(full_width = FALSE)
| Category | Number of Cases | Percentage |
|---|---|---|
| Both Saudis | 50117 | 87.0 |
| One non-Saudi | 4184 | 7.3 |
| Both non-Saudis | 3294 | 5.7 |
ggplot(divorce_data,
aes(x = category_en, y = عدد_الحالات, fill = category_en)) +
geom_col(width = 0.6, show.legend = FALSE) +
geom_text(aes(label = scales::comma(عدد_الحالات)),
vjust = -0.5, size = 4) +
labs(
title = "Divorce Cases by Nationality – 2025",
x = "Category",
y = "Number of Cases"
) +
theme_minimal(base_family = "Cairo")
إذًا، أي خطة لمعالجة ارتفاع الطلاق يجب أن تركز على الأسرة السعودية نفسها:
ثقافة الاختيار، التهيئة قبل الزواج، الدعم بعد الزواج، والعدالة داخل المنظومة الأسرية.
region_data <- data.frame(
المنطقة = c("الجوف", "حائل", "الحدود الشمالية"),
المعدل_لكل_1000 = c(5.07, 4.47, 4.42),
stringsAsFactors = FALSE
)
region_data$region_en <- c("Al-Jouf", "Hail", "Northern Borders")
region_data$المعدل_لكل_1000 <- as.numeric(region_data$المعدل_لكل_1000)
ggplot(region_data,
aes(x = reorder(region_en, المعدل_لكل_1000),
y = المعدل_لكل_1000,
fill = region_en)) +
geom_col(width = 0.6, show.legend = FALSE) +
geom_text(aes(label = المعدل_لكل_1000),
vjust = -0.5, size = 4) +
labs(
title = "Regions with Highest Divorce Rates – 2025",
subtitle = "Divorces per 1,000 population",
x = "Region",
y = "Divorce Rate per 1,000"
) +
theme_minimal(base_family = "Cairo")
هذا البعد المكاني يحفّز على تصميم برامج تدخل موجهة جغرافيًا، وليس بحلول عامة فقط.
⚠️ مهم:
القيم في هذا القسم تقريبية/افتراضية لأغراض التدريب على النماذج الإحصائية، ويجب استبدالها بالبيانات الرسمية عند توفرها.
years <- 2020:2025
marriage_counts <- c(150000, 155000, 160000, 162000, 165000, 167000)
divorce_counts <- c(45000, 47000, 49000, 51600, 54300, 57595)
mar_div_df <- data.frame(
year = years,
marriages_est = marriage_counts,
divorces = divorce_counts
) |>
dplyr::mutate(
divorce_to_marriage_pct = round(100 * divorces / marriages_est, 2)
)
kbl(
mar_div_df,
col.names = c("Year", "Estimated Marriages", "Divorces", "Divorce-to-Marriage (%)"),
caption = "Illustrative Series of Marriages and Divorces in Saudi Arabia (2020–2025)",
align = "c"
) |>
kable_styling(full_width = FALSE)
| Year | Estimated Marriages | Divorces | Divorce-to-Marriage (%) |
|---|---|---|---|
| 2020 | 150000 | 45000 | 30.00 |
| 2021 | 155000 | 47000 | 30.32 |
| 2022 | 160000 | 49000 | 30.62 |
| 2023 | 162000 | 51600 | 31.85 |
| 2024 | 165000 | 54300 | 32.91 |
| 2025 | 167000 | 57595 | 34.49 |
ggplot(mar_div_df, aes(x = year)) +
geom_line(aes(y = marriages_est, linetype = "Marriages"), size = 1.1) +
geom_line(aes(y = divorces, linetype = "Divorces"), size = 1.1) +
scale_y_continuous(labels = scales::comma) +
scale_linetype_manual(
name = "Indicator",
values = c("Marriages" = "solid", "Divorces" = "dashed"),
labels = c("Marriages (solid)", "Divorces (dashed)")
)+
labs(
title = "Estimated Trajectory of Marriages and Divorces (2020–2025)",
x = "Year",
y = "Number of Cases",
linetype = "Indicator"
) +
theme_minimal(base_family = "Cairo")
مرة أخرى: الأرقام هنا تحتاج تحديثًا رسميًا، لكن الشكل العام يدعم الفكرة:
الطلاق ينمو بوتيرة أسرع من الزواج المستقر.
extended_regions <- data.frame(
المنطقة = c("الجوف", "حائل", "الحدود الشمالية",
"الرياض", "مكة المكرمة", "المنطقة الشرقية",
"عسير", "جازان"),
المعدل_طلاق_لكل_1000 = c(5.07, 4.47, 4.42, 3.20, 3.40, 3.60, 3.10, 3.30),
stringsAsFactors = FALSE
)
extended_regions$region_en <- c(
"Al-Jouf", "Hail", "Northern Borders",
"Riyadh", "Makkah", "Eastern Region",
"Asir", "Jazan"
)
extended_regions$المعدل_طلاق_لكل_1000 <- as.numeric(extended_regions$المعدل_طلاق_لكل_1000)
set.seed(123)
kmodel <- kmeans(
extended_regions[, "المعدل_طلاق_لكل_1000", drop = FALSE],
centers = 3
)
extended_regions$cluster <- factor(kmodel$cluster)
kbl(
extended_regions[, c("region_en", "المعدل_طلاق_لكل_1000", "cluster")],
col.names = c("Region", "Divorce Rate per 1,000", "Cluster"),
caption = "K-means Clustering of Saudi Regions by Divorce Rate",
align = "c"
) |>
kable_styling(full_width = FALSE)
| Region | Divorce Rate per 1,000 | Cluster |
|---|---|---|
| Al-Jouf | 5.07 | 3 |
| Hail | 4.47 | 3 |
| Northern Borders | 4.42 | 3 |
| Riyadh | 3.20 | 1 |
| Makkah | 3.40 | 2 |
| Eastern Region | 3.60 | 2 |
| Asir | 3.10 | 1 |
| Jazan | 3.30 | 1 |
ggplot(
extended_regions,
aes(
x = reorder(region_en, المعدل_طلاق_لكل_1000),
y = المعدل_طلاق_لكل_1000,
fill = cluster
)
) +
geom_col(width = 0.6, show.legend = TRUE) +
geom_text(
aes(label = round(المعدل_طلاق_لكل_1000, 2)),
vjust = -0.5,
size = 4
) +
labs(
title = "K-means Clustering of Regions by Divorce Rate",
subtitle = "Color indicates the statistical cluster",
x = "Region",
y = "Divorce Rate per 1,000",
fill = "Cluster"
) +
theme_minimal(base_family = "Cairo")
d <- dist(extended_regions$المعدل_طلاق_لكل_1000)
hc <- hclust(d, method = "ward.D2")
mds_fit <- cmdscale(d, k = 2)
mds_df <- data.frame(
region_en = extended_regions$region_en,
Dim1 = mds_fit[, 1],
Dim2 = mds_fit[, 2]
)
ggplot(mds_df, aes(x = Dim1, y = Dim2, label = region_en)) +
geom_point(size = 3) +
geom_text(vjust = -0.5, size = 4) +
labs(
title = "MDS Map of Regions by Divorce Rate",
x = "Dimension 1",
y = "Dimension 2"
) +
theme_minimal(base_family = "Cairo")
# تأكد أن القيم رقمية وليست factor أو list
extended_regions$المعدل_طلاق_لكل_1000 <- as.numeric(extended_regions$المعدل_طلاق_لكل_1000)
# استخدم نسخة إنجليزية للأسماء كي تظهر صحيحة في الرسم
extended_regions$region_en <- c(
"Al-Jouf", "Hail", "Northern Borders",
"Riyadh", "Makkah", "Eastern Region",
"Asir", "Jazan"
)
# أنشئ مصفوفة رقمية من القيم
matrix_data <- matrix(
as.numeric(extended_regions$المعدل_طلاق_لكل_1000),
nrow = 1
)
colnames(matrix_data) <- extended_regions$region_en
rownames(matrix_data) <- "Divorce Rate 2025"
# الرسم الحراري
pheatmap(
matrix_data,
cluster_rows = FALSE,
cluster_cols = TRUE,
display_numbers = TRUE,
number_format = "%.2f",
main = "Heatmap of Divorce Rates by Region (2025)",
angle_col = 45
)
⚠️ التنبؤ مبني على السلسلة التقديرية السابقة، ويحتاج إلى تحديث عندما تتوفر بيانات رسمية كاملة.
ts_divorce <- ts(divorce_counts, start = 2020, frequency = 1)
model_divorce <- auto.arima(ts_divorce)
forecast_divorce <- forecast(model_divorce, h = 5)
autoplot(forecast_divorce) +
labs(title = "توقع عدد حالات الطلاق في السعودية حتى 2030 (تقديري)",
x = "السنة",
y = "عدد الحالات") +
theme_minimal(base_family = "Cairo")
في أرقامي، لا نتعامل مع الأرقام كحالة وصفية فقط، بل كنقطة انطلاق نحو حل عملي، من خلال:
هذه العناصر تشكل جوهر الخطة المتكاملة التي طورتها أرقامي — جاهزة للتفصيل والتطبيق متى ما طُلبت.
تكشف بيانات الزواج والطلاق في السعودية خلال 2024–2025 عن تحدٍ حقيقي في استقرار الأسرة:
لكن في الوقت نفسه، تُظهر النماذج أن:
في منصة أرقامي لا نكتفي برفع جرس الإنذار، بل نحمل:
خطة كاملة ومدروسة لمعالجة ملف الزواج والطلاق،
مبنية على الأرقام، ومصممة لمن يبحث عن قرار يعتمد على البيانات، لا على الانطباعات.
📊 المصادر: - بيانات الطلاق 2025: أرقام منشورة
منسوبة إلى الهيئة العامة للإحصاء.
- بيانات الزواج 2024: موقع إحصائيات – ehsaeyat.com (بحاجة إلى
تأكيد رسمي وتحديث بالبيانات الأصلية عند صدورها).
🟣 منصة أرقامي | www.argami.net