كيفية إنشاء وسيلة إيضاح يدوية في ggplot2 (مع أمثلة)

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

لحسن الحظ، من السهل القيام بذلك باستخدام الدالة scale_color_manual() والمثال التالي يوضح كيفية القيام بذلك.

مثال: إنشاء وسيلة إيضاح يدوية في ggplot2

يوضح التعليمة البرمجية التالية كيفية رسم ثلاثة خطوط انحدار مُجهزة في قطعة أرض في ggplot2 باستخدام وسيلة إيضاح يدوية مخصصة:

 library (ggplot2)

#create data frame
df <- data. frame (x=c(1, 2, 2, 3, 5, 6, 8, 8, 9, 9, 10, 11, 12, 15, 15),
                 y=c(2, 3, 3, 4, 5, 5, 6, 7, 8, 8, 9, 10, 16, 19, 28))

#create plot with three fitted regression models
ggplot(df, aes(x, y)) +
  geom_point() +
  geom_smooth(se= FALSE , aes(color=' Linear ')) +
  geom_smooth(formula=y~poly(x, 2), se= FALSE , aes(color=' Quadratic ')) +
  geom_smooth(formula=y~poly(x, 3), se= FALSE , aes(color=' Cubic ')) +
  scale_color_manual(name=' Regression Model ',
                     breaks=c(' Linear ', ' Quadratic ', ' Cubic '),
                     values=c(' Cubic '=' pink ', ' Quadratic '=' blue ', ' Linear '=' purple ')) 

باستخدام الدالة scale_color_manual() ، تمكنا من تحديد الجوانب التالية من وسيلة الإيضاح:

• الاسم : عنوان الأسطورة
• فواصل : تسميات في وسيلة الإيضاح
• القيم : الألوان في وسيلة الإيضاح

لاحظ أنه يمكننا أيضًا استخدام الدالة theme() لتغيير حجم خط عناصر وسيلة الإيضاح:

 library (ggplot2)

#create data frame
df <- data. frame (x=c(1, 2, 2, 3, 5, 6, 8, 8, 9, 9, 10, 11, 12, 15, 15),
                 y=c(2, 3, 3, 4, 5, 5, 6, 7, 8, 8, 9, 10, 16, 19, 28))

#create plot with three fitted regression models
ggplot(df, aes(x, y)) +
  geom_point() +
  geom_smooth(se= FALSE , aes(color=' Linear ')) +
  geom_smooth(formula=y~poly(x, 2), se= FALSE , aes(color=' Quadratic ')) +
  geom_smooth(formula=y~poly(x, 3), se= FALSE , aes(color=' Cubic ')) +
  scale_color_manual(name=' Regression Model ',
                     breaks=c(' Linear ', ' Quadratic ', ' Cubic '),
                     values=c(' Cubic '=' pink ', ' Quadratic '=' blue ', ' Linear '=' purple '))+
 theme(legend. title =element_text(size= 20 ),
       legend. text =element_text(size= 14 ))

لاحظ أنه تم زيادة حجم خط تسميات العنوان والتسميات التوضيحية.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ العمليات الشائعة الأخرى في ggplot2:

كيفية تغيير موضع الأسطورة في ggplot2
كيفية تغيير حجم الأسطورة في ggplot2
كيفية تغيير عنوان الأسطورة في ggplot2
كيفية تغيير تسميات الأسطورة في ggplot2