Lapply'nin FUN'ına birkaç argüman geçirme (ve diğerleri * geçerlidir)

Ben kullanırken, bir işleve birden fazla argüman geçen ilgili bir sorum var lapplyiçinde R.

Lapply'yi şu sözdizimiyle kullandığımda lapply(input, myfun);- bu kolayca anlaşılabilir ve eğlencemi şöyle tanımlayabilirim:

myfun <- function(x) {
 # doing something here with x
}

lapply(input, myfun);

ve öğeleri argüman inputolarak aktarılır .xmyfun

Peki ya daha fazla argüman aktarmam gerekirse myfunc? Örneğin şu şekilde tanımlanır:

myfun <- function(x, arg1) {
 # doing something here with x and arg1
}

Bu işlevi hem inputöğe ( xargüman olarak) hem de başka bir argüman iletirken nasıl kullanabilirim?

Yardım sayfasına bakarsanız, tartışmalardan biri lapplygizemlidir .... Yardım sayfasının Argümanlar bölümüne baktığımızda şu satırı buluyoruz:

...: optional arguments to ‘FUN’.

Yani tek yapmanız gereken, lapplygörüşmeye diğer argümanınızı bir argüman olarak dahil etmektir , şöyle ki:

lapply(input, myfun, arg1=6)

ve bunun ne yapacağını bildiği bir argüman olmadığını lapplykabul ederek arg1, onu otomatik olarak aktaracaktır myfun. Diğer tüm applyişlevler aynı şeyi yapabilir.

Ek:... Kendi işlevlerinizi yazarken de kullanabilirsiniz . Örneğin, bir plotnoktada çağıran bir fonksiyon yazdığınızı ve fonksiyon çağrınızdan çizim parametrelerini değiştirebilmek istediğinizi varsayalım. Her parametreyi fonksiyonunuza bağımsız değişken olarak dahil edebilirsiniz, ancak bu can sıkıcıdır. Bunun yerine ...(hem fonksiyonunuza hem de onun içindeki çizim çağrısına bir argüman olarak) kullanabilir ve fonksiyonunuzun otomatik olarak tanımadığı herhangi bir argümana sahip olabilirsiniz plot.

Alan'ın önerdiği gibi, 'mapply' işlevi bir işlevi birden çok Çoklu Listeye veya Vektör Argümanına uygular:

mapply(myfun, arg1, arg2)

Kılavuz sayfasına bakın: https://stat.ethz.ch/R-manual/R-devel/library/base/html/mapply.html

Bunu şu şekilde yapabilirsiniz:

 myfxn <- function(var1,var2,var3){
      var1*var2*var3

    }

    lapply(1:3,myfxn,var2=2,var3=100)

ve cevabı alacaksın:

[[1]] [1] 200

[[2]] [1] 400

[[3]] [1] 600

myfun <- function(x, arg1) {
 # doing something here with x and arg1
}

xbir vektör ya da bir listesi ve myfuniçinde lapply(x, myfun)her elemanı için çağrılır xayrı ayrı.

seçenek 1

Eğer bütün kullanmak isterseniz arg1her myfunçağrı ( myfun(x[1], arg1), myfun(x[2], arg1)vs.) kullanın lapply(x, myfun, arg1)(yukarıda belirtildiği gibi).

seçenek 2

Eğer bununla aramak istiyorum myfunher elemana arg1unsurlarının yanı başında ayrı ayrı x( myfun(x[1], arg1[1]), myfun(x[2], arg1[2])vs.), kullanımı mümkün değildir lapply. Bunun yerine mapply(myfun, x, arg1)(yukarıda belirtildiği gibi) veya şunları kullanın apply:

 apply(cbind(x,arg1), 1, myfun)

veya

 apply(rbind(x,arg1), 2, myfun).