ggplot2 中的美学和爆炸

Question

我正在尝试编写一个创建条形图的函数，但我无法获得正确的 fill 美学。

• 如果我使用fill = !!x 会导致Quosures can only be unquoted within a quasiquotation context.
• 和fill = x 导致Aesthetics must be either length 1 or the same as the data (4): fill

我的代码：

genBar <- function(data, x, y) {
  x <- enquo(x)
  y <- enquo(y)
  plot <- ggplot(data) +
    geom_bar(aes(!!x, !!y),
             stat = 'identity',
             fill = <help>) 
  return(plot)
}

Answer 1

fill 应该在 aes 内。试试看：

library(ggplot2)

genBar <- function(data, x, y) {
  plot <- ggplot(data) +
    geom_bar(aes({{x}}, {{y}}, fill = {{x}}),
             stat = 'identity') 
  return(plot)
}

genBar(mtcars, cyl, mpg)

---

如果您想将列名作为字符串传递，请使用.data 代词。

genBar <- function(data, x, y) {
  plot <- ggplot(data) +
    geom_bar(aes(.data[[x]], .data[[y]], fill = .data[[x]]),
             stat = 'identity') 
  return(plot)
}

genBar(mtcars, "cyl", "mpg")

Answer 2

你在寻找这样的东西吗？

library(dplyr)
library(ggplot2)

genBar <- function(data, x, y) {
  x <- enquo(x)
  y <- enquo(y)
  plot <- ggplot(data) +
    geom_bar(aes(!!x, !!y, fill = !!x),
             stat = 'identity') 
  return(plot)
}

iris %>% 
  group_by(Species) %>% 
  summarize(Size = mean(Petal.Length)) %>%
  genBar(Species, Size)

^{由reprex package (v0.3.0) 于 2020-12-04 创建}