Ek argümanlarla lapply kullan
Videoda, daha genel bir yaklaşım sağlamak için triple() fonksiyonu multiply() fonksiyonuna dönüştürülmüştü. lapply(), multiply() gibi birden fazla argüman gerektiren fonksiyonları ele almanın bir yolunu sunar:
multiply <- function(x, factor) {
x * factor
}
lapply(list(1,2,3), multiply, factor = 3)
Sağda, daha önce yazdığın select fonksiyonlarının genel bir sürümünü ekledik: select_el(). İlk argüman olarak bir vektör, ikinci argüman olarak bir indeks alır. Belirtilen indeksteki vektör elemanını döndürür.
Bu egzersiz, kursun bir parçasıdır
Orta Düzey R
Egzersiz talimatları
lapply()'i iki kez kullanarak select_el()'i split_low içindeki tüm öğeler üzerinde çağır: birinde index 1'e eşit olacak, diğerinde indeks 2 olacak. Sonuçları sırasıyla names ve years değişkenlerine ata.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
# 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