搭配額外引數使用 lapply
在影片中，triple() 函式被改寫成更通用的 multiply() 函式。lapply() 提供了一種方式，能處理需要多個引數的函式，例如 multiply()：
multiply <- function(x, factor) {
x * factor
}
lapply(list(1,2,3), multiply, factor = 3)
在右側我們提供了你先前撰寫之選取函式的通用版本：select_el()。它的第一個引數是向量，第二個引數是索引。它會回傳該向量在指定索引處的元素。
本練習屬於課程
R 中級
練習說明
請使用 lapply() 兩次，將 select_el() 套用到 split_low 的所有元素上：第一次將 index 設為 1，第二次將 index 設為 2。分別將結果指定給 names 與 years。
動手互動練習
試著完成這個範例程式碼，體驗一下這個練習。
# Definition of split_low
pioneers <- c("GAUSS:1777", "BAYES:1702", "PASCAL:1623", "PEARSON:1857")
split <- strsplit(pioneers, split = ":")
split_low <- lapply(split, tolower)
# Generic select function
select_el <- function(x, index) {
x[index]
}
# Use lapply() twice on split_low: names and years