Làm cách nào để chuyển/đánh giá các đối số hàm trong một hàm khác để sử dụng với ggplot?

Question

Hãy xem xét đoạn mã sau:

test <- function(x,n){ 

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

test(mtcars,1) 

Nó ném một lỗi gây ra R không thể tìm thấy lựa chọn. Tôi cũng chơi xung quanh với substitute, eval và get mà không thành công. Tôi tìm thấy this similar question và nghĩ rằng tôi hiểu câu trả lời Joris' nhưng không thể sử dụng cùng một mẹo cho các đối số của ggplot.

Answer 1

bạn có thể sử dụng aes_string cho mục đích này. Vì vậy, test phải như thế này:

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