كيفية إنشاء مخطط شريطي في r

المخطط الشريطي هو نوع من المخططات التي تعرض البيانات الرقمية على طول نطاق واحد. على غرار المخططات المربعة ، يمكن أن تساعدك المخططات الشريطية في تصور توزيع البيانات. يمكن أن تكون المخططات الشريطية بديلاً جيدًا للمخططات المربعة عندما تكون أحجام العينات صغيرة، بحيث يمكنك رؤية نقاط البيانات الفردية.

يشرح هذا البرنامج التعليمي كيفية إنشاء مخطط شريطي في لغة R باستخدام وظيفة stripchart() المضمنة.

الدالة stripchart()

بناء الجملة الأساسي لإنشاء مخطط شريطي في R هو:

مخطط مخطط (x، طريقة، غضب، رئيسي، xlab، ylab، col، pch، عمودي، أسماء المجموعات)

• x : متجه رقمي أو قائمة من المتجهات الرقمية المراد رسمها. هذه هي الحجة الوحيدة المطلوبة لإنتاج قطعة أرض.
• الطريقة : الطريقة المستخدمة لفصل النقاط التي لها قيم متطابقة. تؤدي طريقة “overplot” الافتراضية إلى زيادة رسم هذه النقاط، ولكن من الممكن تحديد “jitter” لاهتزاز النقاط أو “stack” لتكديس النقاط.
• الارتعاش : عند استخدام الطريقة = “الارتعاش”، فإن هذا يوفر مقدار الارتعاش المطلوب تطبيقه.
• الرئيسي: عنوان الرسم البياني
• xlab : تسمية المحور السيني
• ylab : تسمية المحور y
• col : لون نقاط المؤامرة
• pch : شكل نقاط الرسم
• عمودي : عندما تكون القيمة “صحيح” للعمودي، يتم رسم المسار عموديًا بدلاً من أفقيًا بشكل افتراضي
• group.names : قم بتجميع التسميات للطباعة بجانب المخطط، إذا تم رسم متجهات رقمية متعددة.

مخطط شريطي لمتجه رقمي واحد

يستخدم المثال التالي قزحية مجموعة بيانات R المضمنة لإنشاء مخطط شريطي لمتجه رقمي واحد.

 #view first six rows of iris dataset
head(iris)

# Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#1 5.1 3.5 1.4 0.2 setosa
#2 4.9 3.0 1.4 0.2 setosa
#3 4.7 3.2 1.3 0.2 setosa
#4 4.6 3.1 1.5 0.2 setosa
#5 5.0 3.6 1.4 0.2 setosa
#6 5.4 3.9 1.7 0.4 setosa

تقوم التعليمة البرمجية التالية بإنشاء مخطط النطاق الأساسي لمتغير Sepal.Length :

 stripchart(iris$Sepal.Length)

يمكننا أيضًا إضافة وسائط إضافية لإضافة عنوان وتسمية على المحور السيني، وتغيير لون النقاط، وتغيير شكل النقاط، واستخدام طريقة “الارتعاش” حتى لا تتداخل النقاط الفردية:

 stripchart(iris$Sepal.Length,
           main = 'Sepal Length Distribution',
           xlab = 'Sepal Length',
           col = 'red',
           pch = 1,
           method = 'jitter')

بدلًا من خلط النقاط، يمكننا “تكديسها”:

 stripchart(iris$Sepal.Length,
           main = 'Sepal Length Distribution',
           xlab = 'Sepal Length',
           col = 'red',
           pch = 1,
method = 'stack' )

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

 stripchart(iris$Sepal.Length,
           main = 'Sepal Length Distribution',
ylab = 'Sepal Length' ,
           col = 'red',
           pch = 1,
           method = 'jitter',
vertical = TRUE )

مخطط شريطي لنواقل رقمية متعددة

يمكننا أيضًا رسم مخططات شريطية متعددة في مخطط واحد عن طريق تمرير قائمة من المتجهات الرقمية.

يقوم التعليمة البرمجية التالية بإنشاء قائمة تحتوي على متغيرات Sepal Length وWidth في مجموعة بيانات القزحية وتنتج رسمًا بيانيًا شريطيًا لكل متغير في مخطط واحد:

 #create list of variables
x <- list('Sepal Length' = iris$Sepal.Length, 'Sepal Width' = iris$Sepal.Width)

#create plot that contains one strip chart per variable
stripchart(x,
           main = 'Sepal Width & Length Distributions',
           xlab = 'Measurement', 
           ylab = 'Variable',
           col = c('steelblue', 'coral2'),
           pch = 16,
           method = 'jitter')

تمامًا كما في المثال السابق، يمكننا اختيار رسم المخططات الشريطية عموديًا بدلاً من الأفقي الافتراضي:

 stripchart(x, main = 'Sepal Width & Length Distributions',
           xlab = 'Measurement', 
           ylab = 'Variable',
           col = c('steelblue', 'coral2'),
           pch = 16,
           method = 'jitter',
vertical = TRUE )

بالإضافة إلى ذلك، يمكننا تمرير صيغة من النموذج y~x إلى الدالة stripchart()، حيث y عبارة عن متجه رقمي تم تجميعه حسب قيمة x .

على سبيل المثال، في مجموعة بيانات القزحية ، يمكننا تجميع البيانات حسب الأنواع التي لها ثلاث قيم متميزة (“setosa”، و”versicolor”، و”virginica”) ثم رسم طول الكأس لكل نوع في رسم بياني شريطي:

 stripchart(Sepal.Length ~ Species,
           data = iris,
           main = 'Sepal Length by Species',
           xlab = 'Species', 
           ylab = 'Sepal Length',
           col = c('steelblue', 'coral2', 'purple'),
           pch = 16,
           method = 'jitter',
           vertical = TRUE)

لعرض الوثائق الكاملة للدالة stripchart() في R، اكتب ببساطة:

 ?stripchart