通过动态选择的列填充 ggplot

Question

我正在创建一个 ggplot 条形图，如下所示

fill_by <- "some_column"
g <- ggplot(plot_data,aes(x = xvals,y = yvals, fill = fill_by)) +
     geom_bar(stat = "identity")

这里，fill_by 是一个变量，其中包含我要填充条形的列的名称。在函数中使用fill = fill_by 无法产生所需的结果，因为没有名为“fill_by”的列。将eval 包裹在fill_by 周围并没有帮助，并使用

fill_by <- enquo(fill_by)
g <- ggplot(plot_data,aes(x = xvals,y = yvals, fill = !!fill_by)) +
     geom_bar(stat = "identity")

提到的here 也不起作用。

有没有办法以这种方式动态指定填充参数的值？理想的解决方案将容纳指定的多个列

fill_by = c("col 1", "col 2")

等等

Answer 1

在这种情况下，sym 应该用于从字符切换到名称。

https://edwinth.github.io/blog/dplyr-recipes/

library(dplyr)

fill_by <- "cyl"

fill_by <- sym(fill_by)
ggplot(mtcars %>% tibble::rownames_to_column() %>% head(3),
            aes(x = rowname,y = mpg, fill = !!fill_by)) +
  geom_bar(stat = "identity")

fill_by <- "qsec"
[same as above]