Использование lapply с дополнительными аргументами
В видео функция triple() была преобразована в функцию multiply(), чтобы сделать подход более универсальным. Функция lapply() позволяет работать с функциями, которым требуется более одного аргумента, — например, с multiply():
multiply <- function(x, factor) {
x * factor
}
lapply(list(1,2,3), multiply, factor = 3)
Справа представлена универсальная версия функций выборки, написанных ранее: select_el(). Она принимает вектор в качестве первого аргумента и индекс в качестве второго, а возвращает элемент вектора с указанным индексом.
Это упражнение является частью курса
Intermediate 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