Как передавать / оценивать аргументы функции в другой функции для использования с ggplot?

Обратите внимание на следующий код:

test <- function(x,n){

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

test(mtcars,1)

Выдает ошибку, потому что R не может найти выбор. Я также безуспешно играл с заменой , eval и get . Я нашел этот аналогичный вопрос и подумал, что понял ответ Джориса , но не могу использовать тот же прием для аргументов ggplot.