كيفية إنشاء وسيلة إيضاح أفقية في base r (طريقتان)

يمكنك استخدام الطرق التالية لإنشاء وسيلة إيضاح أفقية في مخطط R الأساسي:

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

 legend(' bottom ', fill=fill_cols, legend=c(' A ', ' B ', ' C ', ' D ', ' E ', ' F '),
        horiz= TRUE , inset=c(0, -.1), xpd= TRUE )

يقوم هذا المثال المحدد بإنشاء وسيلة إيضاح أفقية أسفل المخطط حيث يكون كل عنصر من عناصر وسيلة الإيضاح على نفس السطر.

الطريقة الثانية: استخدام الوسيطة ncol

 legend(' bottom ', fill=fill_cols, legend=c(' A ', ' B ', ' C ', ' D ', ' E ', ' F '),
        ncol=3, inset=c(0, -.15), xpd= TRUE )

ينشئ هذا المثال بالذات وسيلة إيضاح أفقية أسفل الحبكة بثلاثة أعمدة.

تتحكم الوسيطة inset(x, y) في موقع وسيلة الإيضاح. باستخدام القيم السالبة للقيمة y، يمكننا دفع وسيلة الإيضاح للأسفل خارج المخطط.

تسمح لنا الوسيطة xpd=TRUE بوضع وسيلة الإيضاح خارج قطعة الأرض مع بقائها مرئية في منطقة قطعة الأرض.

توضح الأمثلة التالية كيفية استخدام كل طريقة عمليًا.

مثال 1: استخدم الوسيطة horiz لإنشاء وسيلة إيضاح أفقية في القاعدة R

يوضح التعليمة البرمجية التالية كيفية استخدام الوسيطة horiz=TRUE في وظيفة legend() لإنشاء وسيلة إيضاح أفقية في أسفل مخطط R الأساسي:

 #create vector of values
data <- c(4, 10, 7, 5, 4, 3)

#specify fill colors to use
fill_cols <- c(' red ', ' pink ', ' blue ', ' green ', ' purple ', ' brown ')

#create bar plot to visualize values in vector
barplot(data, col=fill_cols)

#add legend to bottom of plot
legend(' bottom ', fill=fill_cols, legend=c(' A ', ' B ', ' C ', ' D ', ' E ', ' F '),
        horiz= TRUE , inset=c(0, -.1), xpd= TRUE ) 

لاحظ أنه تم إنشاء وسيلة إيضاح أفقية ووضعها في أسفل المخطط.

لا تتردد في اللعب بقيم الوسيطة الداخلية لضبط موقع وسيلة الإيضاح أيضًا.

على سبيل المثال، يمكننا أن نجعل قيمة y للوسيطة الداخلية أكثر سلبية لدفع وسيلة الإيضاح إلى مستوى أقل:

 #create vector of values
data <- c(4, 10, 7, 5, 4, 3)

#specify fill colors to use
fill_cols <- c(' red ', ' pink ', ' blue ', ' green ', ' purple ', ' brown ')

#create bar plot to visualize values in vector
barplot(data, col=fill_cols)

#add legend to bottom of plot
legend(' bottom ', fill=fill_cols, legend=c(' A ', ' B ', ' C ', ' D ', ' E ', ' F '),
        horiz= TRUE , inset=c(0, -.2), xpd= TRUE ) 

لاحظ أنه تم دفع وسيلة الإيضاح الأفقية إلى مستوى أقل أسفل الحبكة.

المثال 2: استخدم الوسيطة ncol لإنشاء وسيلة إيضاح أفقية في الأساس R

يوضح التعليمة البرمجية التالية كيفية استخدام وسيطة ncol في وظيفة legend() لإنشاء وسيلة إيضاح أفقية بثلاثة أعمدة في أسفل مخطط R الأساسي:

 #create vector of values
data <- c(4, 10, 7, 5, 4, 3)

#specify fill colors to use
fill_cols <- c(' red ', ' pink ', ' blue ', ' green ', ' purple ', ' brown ')

#create bar plot to visualize values in vector
barplot(data, col=fill_cols)

#add legend to bottom of plot
legend(' bottom ', fill=fill_cols, legend=c(' A ', ' B ', ' C ', ' D ', ' E ', ' F '),
        ncol=3, inset=c(0, -.15), xpd= TRUE ) 

لاحظ أنه تم إنشاء وسيلة إيضاح أفقية مكونة من ثلاثة أعمدة ووضعها في أسفل المخطط.

لا تتردد في تعديل قيمة وسيطة ncol لإنشاء وسيلة إيضاح بعدد مختلف من الأعمدة.

مصادر إضافية

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

كيفية تغيير حجم وسيلة الإيضاح في مؤامرة Base R
كيفية رسم أسطورة خارج المؤامرة في R
كيفية تغيير موضع الأسطورة في مخططات R الأساسية