عرض النسب المئوية على رسم بياني دائري باستخدام ggplot2

السؤال الذي طرحته حول كيفية عرض قيم النسبة المئوية على الرسم البياني الدائري باستخدام ggplot2 هو استفسار مهم يتطلب فهمًا دقيقًا للكود والإجراءات المطلوبة لتحقيق هذا الهدف. لنقم أولاً بفحص الكود الحالي ومن ثم نقدم إليك الخطوات التي يمكن اتخاذها لتحقيق ما ترغب فيه.

يبدو أن لديك إطار بيانات ‘df’ يحتوي على متغيرين: ‘variable’ و ‘value’. استخدمت ggplot2 لرسم رسم بياني دائري باستخدام ‘geom_bar’ و ‘coord_polar’. لكن الآن ترغب في إضافة قيم النسبة المئوية على الرسم البياني.

لتحقيق ذلك، يمكنك أولاً حساب قيم النسبة المئوية لكل فئة. يمكنك استخدام مكتبة ‘dplyr’ للقيام بذلك بشكل فعال. فيما يلي كيفية إجراء ذلك:

library(dplyr)

# حساب قيم النسبة المئوية
df_percent <- df %>% 
  mutate(percentage = (value / sum(value)) * 100)

ثم، قم بتحديث الرمز ليشمل القيم المحسوبة:

ggplot(df, aes(x = "", y = value, fill = variable)) +
  geom_bar(width = 1, stat = "identity") +
  scale_fill_manual(values = c("red", "yellow","blue", "green", "cyan")) +
  coord_polar(theta = "y") +
  labs(title = "Pie Chart with Percentage Values") +
  geom_text(aes(label = paste0(round(df_percent$percentage, 1), "%")),
            position = position_stack(vjust = 0.5))

في هذا الكود الجديد، قمت بإضافة ‘geom_text’ لعرض النسب المئوية على الرسم البياني. يتم ذلك باستخدام ‘label’ لتحديد النص الذي يتم عرضه و ‘position_stack’ لتحديد موقع النص على الرسم البياني. يمكنك ضبط موقع النص حسب احتياجاتك.

باستخدام هذه الخطوات، يمكنك تحسين الرمز ليشمل قيم النسب المئوية على الرسم البياني الدائري الخاص بك باستخدام ggplot2.

لفهم الكود والتعديلات التي قمت بها لتحقيق عرض النسب المئوية على الرسم البياني الدائري باستخدام ggplot2، دعنا نقوم بتفسير كل جزء من الكود بشكل أفضل.

أولاً، في قطعة الكود التي استخدمتها لحساب النسب المئوية باستخدام مكتبة ‘dplyr’:

library(dplyr)

# حساب قيم النسبة المئوية
df_percent <- df %>% 
  mutate(percentage = (value / sum(value)) * 100)

قمت باستخدام ميزة السلسلة (pipe operator) “%>%” لتمرير الإطار البياني ‘df’ إلى الدالة ‘mutate’. تستخدم ‘mutate’ لإضافة عمود جديد إلى الإطار البياني يسمى ‘percentage’، وتحسب قيم النسبة المئوية باستخدام التعبير ‘(value / sum(value)) * 100’.

ثم، في قطعة الكود التي قمت بتحديثها لتضمين قيم النسب المئوية على الرسم البياني:

ggplot(df, aes(x = "", y = value, fill = variable)) +
  geom_bar(width = 1, stat = "identity") +
  scale_fill_manual(values = c("red", "yellow","blue", "green", "cyan")) +
  coord_polar(theta = "y") +
  labs(title = "Pie Chart with Percentage Values") +
  geom_text(aes(label = paste0(round(df_percent$percentage, 1), "%")),
            position = position_stack(vjust = 0.5))

في هذا الكود، قمت بإضافة ‘geom_text’ الذي يقوم بعرض النص على الرسم البياني. في ‘aes’, استخدمت ‘label’ لتحديد النص الذي سيتم عرضه، واستخدمت ‘position_stack’ لتحديد موقع النص على الرسم البياني. استخدمت ‘vjust’ لتعديل موقع النص عمودياً.

باستخدام هذه التحسينات، يمكنك الآن رسم رسم بياني دائري يظهر قيم النسب المئوية لكل فئة. يمكنك أيضاً تخصيص الرمز وفقًا لاحتياجاتك الخاصة، مثل تغيير ألوان القطاعات أو تعديل موقع النص على الرسم البياني.