كيفية تغيير عنوان وسيلة الإيضاح في ggplot2 (مع أمثلة)

هناك طريقتان سهلتان لتغيير عنوان وسيلة الإيضاح في مخطط ggplot2:

الطريقة الأولى: استخدام المعامل()

 ggplot(data, aes(x=x_var, y=y_var, fill=fill_var)) + 
  geom_boxplot() + 
  labs(fill=' Legend Title ')

الطريقة الثانية: استخدامscale_fill_manual()

 ggplot(data, aes(x=x_var, y=y_var, fill=fill_var)) + 
  geom_boxplot() +
  scale_fill_manual(' Legend Title ', values=c(' color1 ', ' color2 '))

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

الطريقة الأولى: تغيير عنوان التسمية التوضيحية باستخدام labs()

يوضح التعليمة البرمجية التالية كيفية إنشاء boxplot مجمعة لمجموعة بيانات معينة:

 library (ggplot2) 

#create dataset
data <- data.frame(team= rep (c('A', 'B', 'C'), each =50),
                   program= rep (c('low', 'high'), each =25),
                   values= seq (1:150)+ sample (1:100, 150, replace= TRUE ))

#create boxplot
ggplot(data, aes(x=team, y=values, fill=program)) + 
  geom_boxplot() 

افتراضيًا، يستخدم ggplot2 اسم المتغير في مجموعة البيانات كعنوان وسيلة الإيضاح. ومع ذلك، يمكننا استخدام الدالة labs() ‎ لتعديلها بسهولة:

 library (ggplot2) 

#create dataset
data <- data.frame(team= rep (c('A', 'B', 'C'), each =50),
                   program= rep (c('low', 'high'), each =25),
                   values= seq (1:150)+ sample (1:100, 150, replace= TRUE ))

#create boxplot
ggplot(data, aes(x=team, y=values, fill=program)) + 
  geom_boxplot() + 
  labs(fill=' Program Type ') 

يمكننا أيضًا إضافة فاصل أسطر في عنوان التسمية التوضيحية عن طريق وضع \ n في المكان الذي نريد أن يبدأ فيه السطر الجديد:

 library (ggplot2) 

#create dataset
data <- data.frame(team= rep (c('A', 'B', 'C'), each =50),
                   program= rep (c('low', 'high'), each =25),
                   values= seq (1:150)+ sample (1:100, 150, replace= TRUE ))

#create boxplot
ggplot(data, aes(x=team, y=values, fill=program)) + 
  geom_boxplot() + 
  labs(fill=' Program\nType ') 

الطريقة الثانية: تغيير عنوان وسيلة الإيضاح باستخدام Scale_fill_manual()

يمكننا أيضًا استخدام وظيفة scale_fill_manual() لتحديد عنوان التسمية التوضيحية ومتجه قيم الألوان المراد استخدامها في نفس الوقت:

 library (ggplot2) 

#create dataset
data <- data.frame(team= rep (c('A', 'B', 'C'), each =50),
                   program= rep (c('low', 'high'), each =25),
                   values= seq (1:150)+ sample (1:100, 150, replace= TRUE ))

#create boxplot
ggplot(data, aes(x=team, y=values, fill=program)) + 
  geom_boxplot() + 
  scale_fill_manual(' Program Type ', values=c(' pink ',' blue ')) 

لاحظ أن قيم الألوان يمكن أن تكون أسماء أو رموز ألوان سداسية عشرية.

مصادر إضافية

دليل كامل لأفضل موضوعات ggplot2
الدليل الكامل لعناوين ggplot2
كيفية إنشاء قطع أرض جنبًا إلى جنب في ggplot2