доступ к имени переменной в функции в R

Question

Я определил следующую функцию:

plot_test <- function(data) { 
    columns <- names(data) 
    for (column in columns) { 
    p <- ggplot(data, aes(x=get(column), y=cluster)) 
    p <- p + geom_jitter(position = position_jitter(height = .1, width=0.1)) 
    show(p) 
    } 
} 

с рамкой ввода данных:

a <- data.frame(id=c(1,2), cluster=c(3,4)) 

, когда я бегу:

plot_test(a) 

Я получаю следующее сообщение об ошибке:

Error in get(column) : object 'column' not found 

Я не рассматриваю переменную столбца в цикле for соответственно. Любая помощь будет оценена по достоинству. Благодарю.

Answer 1

Использование aes_string вместо get передать имя столбца ggplot:

for (column in columns) { 
    p <- ggplot(data, aes_string(x=column, y="cluster")) 
    p <- p + geom_jitter(position = position_jitter(height = .1, width=0.1)) 
    show(p) 
}