كيفية إضافة الجداول إلى المؤامرات في ggplot2 (2 أمثلة)

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

لحسن الحظ، من السهل إضافة الجداول إلى المخططات باستخدام الحزمة ggpmisc:

 install. packages (' ggpmisc ')
library (ggpmisc)

توضح الأمثلة التالية كيفية استخدام هذه الحزمة لإضافة جدول إلى barplot وscatterplot باستخدام إطار البيانات التالي:

 #create data frame
df <- data. frame (team=c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'B'),
                 position=c('G', 'G', 'F', 'F', 'G', 'G', 'F', 'F'),
                 points=c(13, 23, 24, 20, 19, 14, 29, 31))

#view data frame
df

  team position points
1 AG 13
2 AG 23
3 AF 24
4 AF 20
5 BG 19
6 BG 14
7 BF 29
8 BF 31

مثال 1: إضافة جدول إلى Barplot في ggplot2

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

 library (ggplo2)
library (ggpmisc)

#create barplot with table
ggplot(df, aes(x=team, y=points, fill=position)) + 
    geom_bar(position=' dodge ', stat=' identity ') +
    annotate(geom = ' table ',
           x=4,
           y=0,
           label=list(df))

إذا كنت تعمل مع مجموعة بيانات كبيرة ولا تريد عرض كل صف على حدة، فيمكنك استخدام الدالة table() لتلخيص البيانات قبل إنشاء الجدول في ggplot2:

 library (ggplot2)
library (ggpmisc)

#summarize frequencies of team and points in table
my_table <- as. data . frame (table(df[, c(1, 3)]))

#create barplot with table
ggplot(df, aes(x=team, y=points, fill=position)) + 
    geom_bar(position=' dodge ', stat=' identity ') +
    annotate(geom = ' table ',
           x=4,
           y=0,
           label=list(my_table))

مثال 2: إضافة جدول إلى مخطط التشتت في ggplot2

يمكننا استخدام الكود التالي لإنشاء مخطط مبعثر في ggplot2 وإضافة جدول في الركن الأيمن السفلي من المخطط لعرض القيم الفعلية من إطار البيانات:

 library (ggplo2)
library (ggpmisc)

#create scatterplot with table
ggplot(df, aes(x=team, y=points)) + 
    geom_point(aes(color=position)) +
    annotate(geom=' table ',
           x=4,
           y=0,
           label=list(df))

ملاحظة : لا تتردد في اللعب بقيم x و y في وظيفة التعليق التوضيحي () لوضع المصفوفة في الموقع المحدد الذي تريده.

مصادر إضافية

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

كيفية إضافة نص إلى مؤامرات ggplot2
كيفية تغيير موضع العنوان في ggplot2
كيفية تغيير ترتيب العناصر في أسطورة ggplot2