r - 如何向嵌入 ggplot 图的函数添加 coord_flip 参数

Question

我有一个包装 ggplot 图的简单函数:

library(ggplot2)
  myGraph <- function(data,x,y) {
  ggplot(data, aes_string(x=x,y=y,group=1) +
  geom_line() %>%
  return()
}

而且我想向该函数添加一个参数，以便我可以翻转或不翻转轴。一个 bool 值，如果为真，则添加一行

coord_flip() +

代码。

Answer 1

很高兴能够将未加引号的列名传递给 ggplot 函数，因此您可以:

myGraph <- function(data, x, y, flip = FALSE) {
  x <- enquo(x)
  y <- enquo(y)
  p <- ggplot(data, aes(x = !!x , y = !!y, group = 1)) + geom_line()
  if(flip) return(p + coord_flip())
  return(p)
}

这样你就可以拥有:

myGraph(mtcars, mpg, cyl)

myGraph(mtcars, mpg, cyl, flip = TRUE)