Hola estoy trabajando para sacar la media de un grupo de observaciones de varias columnas, vector vars, quisiera saber el método para acceder a cada columna en un ciclo y no hacerlo una por una.
vars <- c("di4a", "di4b", "di4c", "di4d", "di4e", "di4f", "di4g")
for(x in vars){
var1 <- select(E1617, CVEGEO, x) #funciona, crea un nuevo df
na_obs <- which(!complete.cases(x)) # no funciona, he intentado var1$x, get(x) en ese punto se detiene el proceso
var1 <- var1(-na_obs,)
na_obs <- which(x>65)
var1 <- var1(-na_obs,) #elimino los errores en la base
var1 <- var1 %>% group_by(CVEGEO) %>% summarise_at(vars(x), funs(mean(x))) #calcula la media de solo los consumidores por municipio
Drogas_Edad_H <- Drogas_Edad_H %>% left_join(var1)
}
El código funciona si se trabaja una por una la variable.
