如何将coord_flip参数添加到嵌入ggplot图的函数中

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

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

---

请使用函数中启用翻转选项的新参数尝试此方法：

library(tidyverse)
#Function
myGraph <- function(data,x,y,change=0){
  if(change==0){
    G1 <- ggplot(data, aes_string(x=x,y=y,group=1)) +
                   geom_line()
  } else
  {
    G1 <- ggplot(data, aes_string(x=x,y=y,group=1)) +
                   geom_line()+
                   coord_flip()
  }
  return(G1)
}
#Apply 2
myGraph(iris,x = 'Species',y = 'Sepal.Width',change = 0)
myGraph(iris,x = 'Species',y = 'Sepal.Width',change = 1)

库（tidyverse）
#作用
myGraph可以这样实现：

库（ggplot2）
myGraph能够将不带引号的列名传递给ggplot函数很好，因此您可以执行以下操作：

myGraph令人毛骨悚然。我们甚至使用相同的名称作为参数。）三个答案，都投了赞成票，这个问题没有赞成票或反对票。
library(tidyverse)
#Function
myGraph <- function(data,x,y,change=0){
  if(change==0){
    G1 <- ggplot(data, aes_string(x=x,y=y,group=1)) +
                   geom_line()
  } else
  {
    G1 <- ggplot(data, aes_string(x=x,y=y,group=1)) +
                   geom_line()+
                   coord_flip()
  }
  return(G1)
}
#Apply 2
myGraph(iris,x = 'Species',y = 'Sepal.Width',change = 0)
myGraph(iris,x = 'Species',y = 'Sepal.Width',change = 1)

myGraph(mtcars, mpg, cyl)