Usar o lapply com sua própria função
Como Filip explicou no vídeo de instrução, você pode usar lapply() em suas próprias funções também. Você só precisa criar uma nova função e certificar-se de que ela esteja disponível no espaço de trabalho. Depois disso, você pode usar a função dentro de lapply() assim como você fez com as funções básicas do R.
No exercício anterior, você já usou lapply() uma vez para converter as informações sobre seus estatísticos pioneiros favoritos em uma lista de vetores composta de duas cadeias de caracteres. Vamos escrever um código para selecionar os nomes e os anos de nascimento separadamente.
O código de exemplo já inclui o código que definiu select_first(), que recebe um vetor como entrada e retorna o primeiro elemento desse vetor.
Este exercício faz parte do curso
R intermediário
Instruções do exercício
- Aplique
select_first()sobre os elementos desplit_lowcomlapply()e atribua o resultado a uma nova variávelnames. - Em seguida, escreva uma função
select_second()que faça exatamente a mesma coisa com o segundo elemento de um vetor inserido. - Por fim, aplique a função
select_second()emsplit_lowe atribua o resultado à variávelyears.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# 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