직접 만든 함수를 lapply와 함께 사용하기
강의 영상에서 설명한 것처럼, lapply()는 직접 만든 함수에도 사용할 수 있습니다. 새 함수를 작성하고 작업 공간에서 사용할 수 있도록 준비한 다음, 기본 R 함수를 사용할 때와 똑같이 lapply() 안에 넣으면 됩니다.
이전 연습 문제에서 이미 lapply()를 사용해 통계학 선구자들에 대한 정보를 두 개의 문자열로 구성된 벡터의 리스트로 변환했습니다. 이번에는 이름과 출생 연도를 각각 따로 추출하는 코드를 작성해 보겠습니다.
샘플 코드에는 벡터를 입력받아 첫 번째 요소를 반환하는 select_first() 함수가 이미 정의되어 있습니다.
이 연습은 강의의 일부입니다
중급 R
연습 안내
select_first()``split_low[(https://www.rdocumentation.org/packages/base/functions/lapply)를 사용해lapply()의 각 요소에 ]를 적용하고, 결과를 새 변수names에 할당하세요.- 다음으로, 입력된 벡터의 두 번째 요소에 대해서도 똑같은 작업을 수행하는 함수
select_second()를 작성하세요. - 마지막으로,
select_second()의 각 요소에split_low함수를 적용하고, 결과를 변수years에 할당하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# Code from previous exercise:
pioneers <- c("GAUSS:1777", "BAYES:1702", "PASCAL:1623", "PEARSON:1857")
split <- strsplit(pioneers, split = ":")
split_low <- lapply(split, tolower)
# Write function select_first()
select_first <- function(x) {
x[1]
}
# Apply select_first() over split_low: names
# Write function select_second()
# Apply select_second() over split_low: years