¿Cómo pasar/evaluar argumentos de función dentro de otra función para usar con ggplot?

Question

Por favor, considere el siguiente código:

test <- function(x,n){ 

selection<-names(x)[n] 
graph <- ggplot(x, aes(factor(selection))) 
graph + geom_bar() 
} 

test(mtcars,1) 

lanza una causa de error R no puede encontrar la selección. También jugué con substitute, eval y get sin éxito. Encontré this similar question y pensé que entendía Joris' responder pero no puedo usar el mismo truco para los argumentos de ggplot también.

Answer 1

puede usar aes_string para este fin. Así que test debería ser así:

test <- function(x,n){ 
    graph <- ggplot(x, aes_string(x = names(x)[n])) 
    graph + geom_bar() 
}