ส่งผ่านข้อโต้แย้งหลายประการเพื่อ FUN of lapply (และอื่น ๆ * ใช้)

ฉันมีคำถามเกี่ยวกับการส่งอาร์กิวเมนต์หลายรายการไปยังฟังก์ชันเมื่อใช้lapplyในR.

เมื่อฉันใช้ lapply กับไวยากรณ์ของlapply(input, myfun);- สิ่งนี้เข้าใจได้ง่ายและฉันสามารถกำหนด myfun ได้เช่นนั้น:

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

lapply(input, myfun);

และองค์ประกอบของinputจะถูกส่งผ่านเป็นอาร์กิวเมนต์xmyfun

แต่ถ้าฉันต้องผ่านข้อโต้แย้งเพิ่มเติมอีกmyfuncล่ะ? ตัวอย่างเช่นมีการกำหนดไว้เช่นนั้น:

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

ฉันจะใช้ฟังก์ชันนี้โดยส่งผ่านทั้งสองinputองค์ประกอบ (เป็นxอาร์กิวเมนต์) และอาร์กิวเมนต์อื่น ๆ ได้อย่างไร

หากคุณมองขึ้นหน้าความช่วยเหลืออย่างใดอย่างหนึ่งของการขัดแย้งที่จะเป็นลึกลับlapply ...เมื่อเราดูส่วนอาร์กิวเมนต์ของหน้าวิธีใช้เราจะพบบรรทัดต่อไปนี้:

...: optional arguments to ‘FUN’.

ดังนั้นสิ่งที่คุณต้องทำคือรวมอาร์กิวเมนต์อื่น ๆ ของคุณในการlapplyโทรเป็นอาร์กิวเมนต์ดังนี้

lapply(input, myfun, arg1=6)

และlapplyตระหนักว่าไม่โต้แย้งก็รู้ว่าจะทำอย่างไรกับการที่จะผ่านมันไปโดยอัตโนมัติarg1 ฟังก์ชันmyfunอื่น ๆ ทั้งหมดapplyสามารถทำสิ่งเดียวกันได้

ภาคผนวก:คุณสามารถใช้...เมื่อคุณเขียนฟังก์ชันของคุณเองได้เช่นกัน ตัวอย่างเช่นสมมติว่าคุณเขียนฟังก์ชันที่เรียกใช้plotณ จุดหนึ่งและคุณต้องการเปลี่ยนพารามิเตอร์การลงจุดจากการเรียกฟังก์ชันของคุณ คุณสามารถรวมพารามิเตอร์แต่ละตัวเป็นอาร์กิวเมนต์ในฟังก์ชันของคุณได้ แต่มันน่ารำคาญ แต่คุณสามารถใช้...(เป็นอาร์กิวเมนต์ทั้งฟังก์ชั่นและการเรียกร้องให้พล็อตที่อยู่ภายในของคุณ) และมีข้อโต้แย้งใด ๆ plotที่ฟังก์ชั่นของคุณไม่รู้จักถูกส่งผ่านโดยอัตโนมัติไปยัง

ตามที่ Alan แนะนำฟังก์ชัน 'mapply' ใช้ฟังก์ชันกับ Multiple Lists หรือ Vector Arguments:

mapply(myfun, arg1, arg2)

ดูหน้าคน: https://stat.ethz.ch/R-manual/R-devel/library/base/html/mapply.html

คุณสามารถทำได้ด้วยวิธีต่อไปนี้:

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

    }

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

และคุณจะได้รับคำตอบ:

[[1]] [1] 200

[[2]] [1] 400

[[3]] [1] 600

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

xเป็นเวกเตอร์หรือรายการและmyfunในlapply(x, myfun)เรียกว่าสำหรับองค์ประกอบของแต่ละxแยก

ตัวเลือกที่ 1

หากคุณต้องการที่จะใช้ทั้งarg1ในแต่ละmyfunโทร ( myfun(x[1], arg1), myfun(x[2], arg1)ฯลฯ ), การใช้งานlapply(x, myfun, arg1)(ตามที่ระบุไว้ข้างต้น)

ทางเลือกที่ 2

หากคุณต้องการ แต่ชอบที่จะเรียกmyfunไปยังองค์ประกอบของแต่ละarg1แยกควบคู่ไปกับองค์ประกอบของx( myfun(x[1], arg1[1]), myfun(x[2], arg1[2])ฯลฯ ) lapplyมันเป็นไปไม่ได้ที่จะใช้งาน ให้ใช้mapply(myfun, x, arg1)(ตามที่ระบุไว้ข้างต้น) หรือapply:

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

หรือ

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