Jak przekazywać/oceniać argumenty funkcji w ramach innej funkcji do użycia z ggplot?

Question

Proszę rozważyć następujący kod:

test <- function(x,n){ 

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

test(mtcars,1) 

zgłasza błąd przyczyną R nie można znaleźć wybór. Grałem też bez żadnego sukcesu z substitute, eval i get. Znalazłem this similar question i myślałem, że rozumiem odpowiedź Joris', ale nie mogę użyć tej samej sztuczki dla argumentów ggplota.

Answer 1

Do tego celu można użyć aes_string. Tak więc test powinno być takie:

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