Primeiro respondendo o seu problema específico, com base no seu comentário.
A função de exemplo que você colocou lida com "non-standard" evaluation, o que torna mais difícil de programar com funcionais (como o lapply
). Assim, vou criar uma outra função equivalente para ilustrar o seu caso.
A função abaixo pega um vetor de textos e substitui certas palavras (ou regular expressions) por outras:
mgsub <- function(replacement, pattern, x){
aux <- data.frame(replacement, pattern)
for(i in 1:nrow(aux)) x <- gsub(aux[i,1], aux[i,2], x)
x
}
No exemplo dos dados iris
, vamos trocar as espécies "setosa" e "virginica" por "novo":
iris$Species <- mgsub(c("setosa", "virginica"), "novo", iris$Species)
Ok, temos uma função que faz isso para um vetor de cada vez. Agora somente precisamos de uma função que faça isso para vários vetores ao mesmo tempo. Vamos criar portanto uma nova função com Vectorize()
.
NovaFuncao <- function(dados, variaveis, levels, novosLevels){
dados[variaveis] <- Vectorize(mgsub, SIMPLIFY = FALSE)(levels, novosLevels, dados[variaveis])
dados
}
Agora nossa função aceita um data.frame
, um vetor com o nome das variáveis que serão substituídas, uma lista com os levels antigos e uma lista com os novos levels. Criando uma base de dados de teste:
df <- data.frame(fator1 = c("a", "b", "c"),
fator2 = c("f", "g", "h"),
fator3 = c("i", "j", "k"))
df
fator1 fator2 fator3
1 a f i
2 b g j
3 c h k
NovaFuncao(df,
variaveis = c("fator1", "fator2"),
levels = list(c("a", "b"),
c("f")),
novosLevels = list(c("novo1", "novo2"),
c("novo3"))
)
fator1 fator2 fator3
1 novo1 novo3 i
2 novo2 g j
3 c h k
Bom, mantendo abaixo a resposta genérica anterior:
Suponha que essa seja sua função base:
funcaobase <- function(data, argumento1){
paste(data, argumento1)
}
Testando a função:
data <- "teste"
funcaobase(data, 1)
[1] "teste 1"
O que você quer é vetorizá-la no argumento1
(a função paste
já é vetorizada, então não precisaria fazer isso, mas apenas para ilustração vamos supor que ela não fosse).
NovaFuncao <- Vectorize(funcaobase, vectorize.args = "argumento1", SIMPLIFY = FALSE)
Agora você pode usar vários argumentos ao invés de um só:
argumentos <- 1:5
NovaFuncao(data, argumentos)
[[1]]
[1] "teste 1"
[[2]]
[1] "teste 2"
[[3]]
[1] "teste 3"
[[4]]
[1] "teste 4"
[[5]]
[1] "teste 5"
Mais detalhadamente, Vectorize
usa o lapply
ou mapply
. Por exemplo, você pode fazer a mesma coisa com um lapply
em argumentos mantendo data
fixo:
lapply(argumentos, funcaobase, data=data)
[[1]]
[1] "teste 1"
[[2]]
[1] "teste 2"
[[3]]
[1] "teste 3"
[[4]]
[1] "teste 4"
[[5]]
[1] "teste 5"
Assim, você pode transformar esse comando em uma nova função:
NovaFuncao <- function(data, argumentos){
lapply(argumentos, funcaobase, data=data)
}
NovaFuncao(data, argumentos)
[[1]]
[1] "teste 1"
[[2]]
[1] "teste 2"
[[3]]
[1] "teste 3"
[[4]]
[1] "teste 4"
[[5]]
[1] "teste 5"
Essa é a lógica básica. Você pode fazer isso também com um for
loop ou usando outras funções da família apply
a depender do caso.
NovaFuncao
você dá, em cada linha, um novo valor àdata
, de modo que você substitui o valor a cada nova linha e portanto, seureturn(data)
só irá retornar o último valor associado adata
. É isso mesmo que você pretende?data
é um data.frame? um vetor? uma lista?) e do que sua função faz.