كيفية حساب معامل جيني في r (مع مثال)

سمي على اسم الإحصائي الإيطالي كورادو جيني ، معامل جيني هو وسيلة لقياس توزيع الدخل للسكان.

تتراوح قيمة معامل جيني من 0 إلى 1، حيث تمثل القيم الأعلى تفاوتًا أكبر في الدخل وحيث:

• 0 يمثل المساواة الكاملة في الدخل (كل شخص لديه نفس الدخل)
• 1 يمثل عدم المساواة الكاملة في الدخل (فرد واحد لديه كل الدخل)

يمكنك العثور على قائمة بمعاملات جيني حسب البلد هنا .

توضح الأمثلة التالية طريقتين لحساب معامل Gini في R باستخدام الدالة Gini() من حزمة DescTools .

مثال 1: حساب معامل جيني باستخدام الدخل الفردي

لنفترض أن لدينا القائمة التالية من الدخل السنوي لعشرة أشخاص:

الدخل: 50,000 دولار، 50,000 دولار، 70,000 دولار، 70,000 دولار، 70,000 دولار، 90,000 دولار، 150,000 دولار، 150,000 دولار، 150,000 دولار، 150,000 دولار

يوضح التعليمة البرمجية التالية كيفية استخدام الدالة Gini() لحساب معامل Gini لهذه الفئة من السكان:

 library (DescTools)

#define vector of income
x <- c(50, 50, 70, 70, 70, 90, 150, 150, 150, 150)

#calculate Gini coefficient
Gini(x, unbiased= FALSE )

[1] 0.226

وتبين أن معامل جيني هو 0.226 .

ملحوظة : في سيناريو العالم الحقيقي، سيكون هناك مئات الآلاف من الدخول المختلفة للأفراد في بلد معين، ولكن في هذا المثال استخدمنا 10 أفراد كمثال بسيط.

مثال 2: حساب معامل جيني باستخدام الترددات

لنفترض أن لدينا الجدول التكراري التالي الذي يوضح عدد الأفراد في مجموعة سكانية معينة ذات دخل محدد:

يوضح التعليمة البرمجية التالية كيفية استخدام الدالة Gini() لحساب معامل Gini لهذه الفئة من السكان:

 library (DescTools)

#define vector of income
x <- c(10, 20, 25, 55, 70, 90, 110, 115, 130)

#define vector of frequencies
n <- c(6, 7, 7, 14, 22, 20, 8, 4, 1)

#calculate Gini coefficient
Gini(x, n, unbiased= FALSE )

[1] 0.2632289

وتبين أن معامل جيني هو 0.26232 .

ملاحظة : يمكنك العثور على الوثائق الكاملة لوظيفة Gini() من حزمة DescTools هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية حساب معامل جيني وكيفية إنشاء منحنى لورينز في إكسيل:

كيفية حساب معامل جيني في إكسيل
كيفية إنشاء منحنى لورنز في إكسل