كيفية إجراء التجانس الضعيف في r (خطوة بخطوة)

في الإحصائيات، يشير مصطلح Lowess إلى “تجانس السحب النقطية الموزونة محليًا” – عملية إنتاج منحنى سلس يتوافق مع نقاط البيانات في السحابة النقطية.

لإجراء تجانس أقل في R، يمكننا استخدام الدالة lowess() ، والتي تستخدم بناء الجملة التالي:

أقل (س، ص، و = 2/3)

ذهب:

• x: متجه عددي لقيم x.
• y: متجه عددي لقيم y.
• f: قيمة المدى الأكثر سلاسة. وهذا يعطي نسبة النقاط في المخطط التي تؤثر على التجانس عند كل قيمة. القيم الأعلى تؤدي إلى مزيد من السلاسة.

يوضح المثال التالي خطوة بخطوة كيفية إجراء التجانس الضعيف لمجموعة بيانات معينة في R.

الخطوة 1: إنشاء البيانات

أولاً، لنقم بإنشاء مجموعة بيانات مزيفة:

 df <- data. frame (x=c(1, 1, 2, 2, 3, 4, 6, 6, 7, 8, 10, 11, 11, 12, 13, 14),
y=c(4, 7, 9, 10, 14, 15, 19, 16, 17, 21, 22, 34, 44, 40, 43, 45))

الخطوة 2: رسم البيانات

بعد ذلك، لنرسم قيم x وy لمجموعة البيانات:

 plot(df$x, df$y) 

الخطوة 3: ارسم المنحنى الأدنى

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

 #create scatterplot
plot(df$x, df$y)

#add lowess smoothing curve to plot
lines(lowess(df$x, df$y), col=' red ')

الخطوة 4: ضبط الوصول الأكثر ليونة (اختياري)

يمكننا أيضًا ضبط الوسيطة f في الدالة lowess() لزيادة أو تقليل القيمة المستخدمة لمدى أكثر سلاسة.

لاحظ أنه كلما كانت القيمة التي نقدمها أكبر، كلما كان المنحنى السفلي أكثر سلاسة.

 #create scatterplot
plot(df$x, df$y)

#add lowess smoothing curves
lines(lowess(df$x, df$y), col=' red ')
lines(lowess(df$x, df$y, f=0.3), col=' purple ')
lines(lowess(df$x, df$y, f=3), col=' steelblue ')

#add legend to plot
legend(' topleft ',
       col = c(' red ', ' purple ', ' steelblue '),
       lwd = 2,
       c(' Smoother = 1 ', ' Smoother = 0.3 ', ' Smoother = 3 ')) 

مصادر إضافية

كيفية رسم خطوط متعددة في الرسم البياني في R
كيفية إنشاء مخطط مبعثر مع خط الانحدار في R
كيفية إجراء الانحدار متعدد الحدود في R