ggplotで使用するために別の関数内で関数の引数を渡したり評価する方法は？

Question

は、次のコードを考えてみてください：

test <- function(x,n){ 

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

test(mtcars,1) 

それはエラー原因Rが選択を見つけることができませんがスローされます。私もsubstitute、eval、getで成功しませんでした。私はthis similar questionを見つけたと私はJoris'答えを理解したと思ったが、ggplotの引数の同じトリックを同様に使用することはできません。

Answer 1

この目的でaes_stringを使用できます。だから、testは次のようにする必要があります：

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