r – Ciclo for para procesar mas de una variable de un data frame

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.