ج: كيفية استخدام الدالة lapply() مع الوسائط المتعددة

يمكن استخدام الدالة lapply() ‎ في لغة R لتطبيق دالة على كل عنصر في القائمة أو المتجه أو إطار البيانات والحصول على القائمة وفقًا لذلك.

لاستخدام الدالة lapply() مع وسائط متعددة، يمكنك استخدام الصيغة الأساسية التالية:

 #define function
my_function <- function (var1,var2,var3){
  var1*var2*var3
}

#apply function to list using multiple arguments
lapply(my_list, my_function, var2=3, var3=5)

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

مثال: كيفية استخدام lapply() مع وسائط متعددة في R

لنفترض أن لدينا القائمة التالية في R:

 #create a list
my_list <- list(A=1, B=2, C=3, D=4)

#view list
my_list

$A
[1] 1

$B
[1] 2

$C
[1] 3

$D
[1] 4

تحدد التعليمة البرمجية التالية دالة تقبل ثلاثة متغيرات وتضرب المتغيرات الثلاثة معًا، ثم تستخدم الدالة lapply() لتطبيق هذه الدالة على كل قيمة في قائمتنا:

 #define function
my_function <- function (var1,var2,var3){
  var1*var2*var3
}

#apply function to list using multiple arguments
lapply(my_list, my_function, var2=3, var3=5)

$A
[1] 15

$B
[1] 30

$C
[1] 45

$D
[1] 60

لاحظ أن الدالة lapply() تقوم بضرب كل قيمة في القائمة بـ 3 ثم بـ 5.

على سبيل المثال:

• القيمة الأولى في القائمة: 1*3*5 = 15
• القيمة الثانية في القائمة: 2*3*5 = 30
• القيمة الثالثة في القائمة: 3*3*5 = 45
• القيمة الرابعة في القائمة: 4*3*5 = 60

باستخدام بناء جملة مشابه، يمكنك توفير أي عدد تريده من الوسائط للدالة lapply() .

مصادر إضافية

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

كيفية تطبيق دالة على كل صف إطار بيانات في R
كيفية استخدام الدالة colSums() في R
كيفية استخدام الدالةrowSums() في R