Неправильная метка оси при передаче имени столбца в функции ggplot

Question

В следующем примере я передаю имя столбца набора данных в функцию, которая использует ggplot. Функция может извлечь имя столбца и успешно построить график, но неправильная метка оси

library(tidyverse)
attach(mpg)

plot_func <- function(col_name) {
  ggplot(mpg,aes(x = col_name, fill = class)) +
    geom_bar() 
}

plot_func(drv)

Есть ли в любом случае изменить ось х метка от col_name до drv. Я пробовал ниже, но это не работает.

plot_func("drv")

Answer 1

Вам просто нужно использовать get() в своей функции, чтобы она могла быть распознана как переменная в aes(), а распознаваться как строка символов в xlab():

library(tidyverse)
attach(mpg)

plot_func <- function(col_name) {
  ggplot(mpg,aes(x = get(col_name), fill = class)) +
    geom_bar() +
    xlab(col_name)
}

plot_func("drv")

Answer 2

Передача drv в виде строки работает, если вы сначала изменили ее на символ, а затем заключили в кавычки.

library(tidyverse)
attach(mpg)

plot_func <- function(col_name) {
  col_name <- rlang::sym(col_name)
  ggplot(mpg,aes(x = !!col_name, fill = class)) +
    geom_bar() 
}

plot_func("drv")