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인 상태로, 두 번째는 인덱스가 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