如何在另一個函數中傳遞/計算函數參數以便與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() 
}