كيفية رسم المتوسط باستخدام geom_bar() في ggplot2

يمكنك استخدام بناء الجملة الأساسي التالي لرسم القيم المتوسطة حسب المجموعة باستخدام الدالة Geom_bar() في ggplot2:

 library (ggplot2)

ggplot(df, aes(group_var, values_var)) +
  geom_bar(position=' dodge ', stat=' summary ', fun=' mean ')

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

ملحوظة : الوسيطة الممتعة في Geom_bar() تخبر ggplot2 بالإحصائيات الوصفية التي سيتم عرضها باستخدام الأشرطة. يمكنك أيضًا تمرير إحصائية وصفية مختلفة، مثل “الوسيط”، إلى هذه الوسيطة لرسم القيمة المتوسطة حسب المجموعة.

مثال: رسم القيم المتوسطة باستخدام Geom_bar() في ggplot2

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

 #create data frame
df <- data. frame (team=rep(c(' A ', ' B ', ' C '), each= 4 ),
                 points=c(3, 5, 5, 6, 5, 7, 7, 8, 9, 9, 9, 8))

#view data frame
df

   team points
1 to 3
2 to 5
3 to 5
4 to 6
5 B 5
6 B 7
7 B 7
8 B 8
9 C 9
10 C 9
11 C 9
12 C 8

يمكننا استخدام الصيغة التالية لإنشاء مخطط شريطي يمثل فيه كل شريط متوسط قيمة النقطة ، مجمعة حسب الفريق :

 library (ggplot2)

#create bar plot to visualize mean points value by team
ggplot(df, aes(team, points)) +
  geom_bar(position=' dodge ', stat=' summary ', fun=' mean ') 

يمثل ارتفاع كل شريط متوسط قيمة النقاط لكل فريق .

لعرض متوسط قيمة النقاط الفعلية لكل فريق، يمكننا استخدام الدالة summarise() ‎ من الحزمة dplyr :

 library (dplyr)

#calculate mean value of points, grouped by team
df %>%
  group_by(team) %>%
  summarise(mean_pts = mean(points, na. rm = TRUE ))

# A tibble: 3 x 2
  team mean_pts
      
1 to 4.75
2 B 6.75
3 C 8.75

ومن النتيجة يمكننا أن نرى متوسط قيمة النقاط لكل فريق:

• الفريق أ: 4.75
• الفريق ب: 6.75
• الفريق ج: 8.75

تتوافق هذه القيم مع ارتفاع الأشرطة المعروضة في المخطط الشريطي أعلاه.

مصادر إضافية

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

كيفية ضبط المسافة بين الأشرطة في ggplot2
كيفية إزالة NAs من المؤامرة في ggplot2
كيفية تغيير ألوان الشريط في مخطط Stacked Bart في ggplot2