Mi intención es usar un bucle con for para aplicar una función a varios datasets, y a su vez guardar los output como archivos .csv.
Voy a presentar un ejemplo sencillo, que estoy segura se puede resolver de otras formas, pero es solo para intentar ilustrar lo que necesito hacer con datos y funciones un poco más complicados:
Tengo los siguientes datasets:
df1 = data.frame(ID_INDIVIDUO = c("individo_1", "individo_2", "individo_3", "individo_4", "individo_5", "individo_6", "individo_7"),
ciudad = c("Ciudad_A", "Ciudad_A", "Ciudad_B", "Ciudad_C", "Ciudad_C", "Ciudad_D", "Ciudad_A"))
df2 = data.frame(ID_INDIVIDUO = c("individo_1", "individo_4", "individo_5", "individo_6", "individo_7"),
ciudad = c("Ciudad_A", "Ciudad_C", "Ciudad_C", "Ciudad_D", "Ciudad_A"))
Y la siguiente función:
mi_funcion <- function(x){
Casos_ciudad_A <- x %>% filter(ciudad == "Ciudad_A")
return(Casos_ciudad_A)
}
Para hacer una lista de los datasets a utilizar, hago:
archivos <- mget(ls()[grep("df", ls())])
Y hasta acá llego. Puedo ver los resultados que quiero haciendo:
for (i in archivos){
print(mi_funcion(i))
}
Pero no logro exportar los resultados de cada dataset a dos archivos separados. Este fue mi intento, que da error:
for (i in archivos){
write.csv(mi_funcion(i),paste(names(archivos [i]), ".csv", sep = ","))
}
Específicamente, el error es: "Error in files[i] : invalid subscript type 'list'". Les agradecería mucho cualquier ayuda que pueda orientarme en esto. Saludos!
files
, que al parecer tiene mucho que ver con el error que recibes. ¿Podrías editar tu pregunta para incluirlo? De manera general una sugerencia sería crear el vector de nombres de archivo antes de usarlos en el bucle y luego llamarlo ahí por su posición. De ese modo es más fácil el debugging: los pasos que fallan, fallan de uno a la vez.archivos
, pero ahora pienso que tal vez names no era la función adecuada a usar. Si genero un vectornombres <- c(df1,df2)
, ¿qué sería llamarlo al bucle por su posición?iwalk(archivos, ~write.csv(.x %>% mi_funcion(), file = paste0(.y, ".csv")))
.iwalk
es una funcional que aplica una función sin generar output (en este caso para R la escritura en disco no es output estrictamente) a cada elemento de una lista. Es del estilo delapply()
, pero está en la libreríapurrr
.