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

يمكنك استخدام بناء الجملة التالي لتغيير حجم العناصر في وسيلة إيضاح ggplot2:

 ggplot(data, aes (x=x, y=y)) +
  theme( legend.key.size = unit(1, ' cm '), #change legend key size
legend.key.height = unit(1, ' cm '), #change legend key height
        legend.key.width = unit(1, ' cm '), #change legend key width
legend.title = element_text(size=14), #change legend title font size
        legend.text = element_text(size=10)) #change legend text font size

توضح الأمثلة التالية كيفية استخدام هذه الحجج عمليًا.

تغيير حجم مفتاح وسيلة الإيضاح ggplot2

لنفترض أننا أنشأنا مخطط barplot المجمع التالي باستخدام ggplot2:

 library (ggplot2)

#create data frame
df <- data.frame(team=rep(c(' A ', ' B ', ' C '), each =3),
                 position=rep(c(' Guard ', ' Forward ', ' Center '), times =3),
                 dots=c(14, 8, 8, 16, 3, 7, 17, 22, 26))

#create grouped barplot
ggplot(df, aes (fill=position, y=points, x=team)) +
  geom_bar(position=' dodge ', stat=' identity ') 

افتراضيًا، يوفر ggplot2 وسيلة إيضاح على يمين الرسم البياني.

يوضح التعليمة البرمجية التالية كيفية استخدام وسيطة legend.key.size لتكبير مفاتيح وسيلة الإيضاح:

 ggplot(df, aes (fill=position, y=points, x=team)) +
  geom_bar(position=' dodge ', stat=' identity ') +
  theme( legend.key.size = unit(2, ' cm ')) 

يمكننا أيضًا استخدام الوسيطات legend.key.width و legend.key.height لتحديد عرض المفتاح وارتفاعه:

 ggplot(df, aes (fill=position, y=points, x=team)) +
  geom_bar(position=' dodge ', stat=' identity ') +
  theme( legend.key.height = unit(2, ' cm '),
        legend.key.width = unit(4, ' cm ')) 

تغيير حجم خط عنوان وسيلة الإيضاح ggplot2

يمكننا استخدام وسيطة legend.title لتكبير حجم خط عنوان وسيلة الإيضاح:

 ggplot(df, aes (fill=position, y=points, x=team)) +
  geom_bar(position=' dodge ', stat=' identity ') +
  theme( legend.title = element_text(size=30)) 

تغيير حجم خط نص وسيلة الإيضاح ggplot2

يمكننا استخدام وسيطة legend.text لتكبير حجم خط عنوان وسيلة الإيضاح:

 ggplot(df, aes (fill=position, y=points, x=team)) +
  geom_bar(position=' dodge ', stat=' identity ') +
  theme( legend.text = element_text(size=30)) 

مصادر إضافية

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