R menerapkan fungsi dengan beberapa parameter

128

Saya memiliki fungsi f(var1, var2)di R. Misalkan kita mengatur var2 = 1dan sekarang saya ingin menerapkan fungsi f()ke daftar L. Pada dasarnya saya ingin mendapatkan daftar L * baru dengan outputnya

[f(L[1],1),f(L[2],1),...,f(L[n],1)]

Bagaimana saya melakukan ini dengan apply, mapplyatau lapply?

r

— Michael
sumber

Pertanyaan serupa: stackoverflow.com/questions/2545879/…

— Scott C Wilson

190

Cukup teruskan var2 sebagai argumen tambahan ke salah satu fungsi terapkan.

mylist <- list(a=1,b=2,c=3)
myfxn <- function(var1,var2){
  var1*var2
}
var2 <- 2

sapply(mylist,myfxn,var2=var2)

Ini meneruskan hal yang sama var2ke setiap panggilan myfxn. Jika sebaliknya Anda ingin setiap panggilan myfxnmendapatkan 1st / 2nd / 3rd / etc. elemen keduanya mylistdan var2, maka Anda berada di mapplydomain.

— Ari B. Friedman
sumber

5

tetapi perhatikan bahwa myfxndapat divektorisasi, dalam hal ini seseorang harus menggunakanmyfxn(unlist(mylist), var2=var2)

— baptiste

Contoh aslinya tidak jelas tetapi tampaknya tidak vektor. Poin diambil dengan baik, bagaimanapun.

— Ari B. Friedman

Apakah cara untuk membuat ini berfungsi sebagai fungsi "dengan cepat?" Sesuatu seperti ini: sapply(mylist, function(var1, var2) { var1*var2 }, var=thisvar2)Tapi saya mendapatkan kesalahan bahwa argumen 2 cocok dengan beberapa argumen formal

— emudrak

1

@emudrak Saya pikir masalahnya ada jus yang Anda penamaan argumen Anda lulus varbukan var2. Aku tidak mengerti maksudmu.

— Ari B. Friedman

49

Jika fungsi Anda memiliki dua variabel vektor dan harus menghitung sendiri pada setiap nilainya (seperti yang disebutkan oleh @Ari B.Friedman), Anda dapat menggunakan mapplysebagai berikut:

vars1<-c(1,2,3)
vars2<-c(10,20,30)
mult_one<-function(var1,var2)
{
   var1*var2
}
mapply(mult_one,vars1,vars2)

yang memberi Anda:

> mapply(mult_one,vars1,vars2)
[1] 10 40 90

— Alexander
sumber

3

Satu suara positif untuk generalisasi, bahkan dengan contoh yang sederhana dan jelas.

— JASC

mapplyjuga akan mendaur ulang jika vars1memiliki satu elemen. Misalnya saat vars1 <- 3, mapply(mult_one, vars1, vars2)return 30 60 90. Ini berguna ketika Anda ingin menggunakan lapplyargumen kedua dari sebuah fungsi.

— Paul Rougieux

3

Untuk lebih menggeneralisasi contoh @ Alexander, outerrelevan dalam kasus di mana suatu fungsi harus menghitung dirinya sendiri pada setiap pasangan nilai vektor:

vars1<-c(1,2,3)
vars2<-c(10,20,30)
mult_one<-function(var1,var2)
{
   var1*var2
}
outer(vars1,vars2,mult_one)

memberikan:

> outer(vars1, vars2, mult_one)
     [,1] [,2] [,3]
[1,]   10   20   30
[2,]   20   40   60
[3,]   30   60   90

— ms609
sumber