r - ラッパーで ggplot に引数を渡す

Question

ggplot2 を別の関数にラップする必要があり、受け入れられるのと同じ方法で変数を解析できるようにしたいのですが、誰かが私を正しい方向に導くことができますか?

たとえば、以下の MWE を考えてみましょう。

#Load Required libraries.
library(ggplot2)

##My Wrapper Function.
mywrapper <- function(data,xcol,ycol,colorVar){
  writeLines("This is my wrapper")
  plot <- ggplot(data=data,aes(x=xcol,y=ycol,color=colorVar)) + geom_point()
  print(plot)
  return(plot)
}

ダミーデータ:

##Demo Data
myData <- data.frame(x=0,y=0,c="Color Series")

手間をかけずに実行される既存の使用法:

##Example of Original Function Usage, which executes as expected
plot <- ggplot(data=myData,aes(x=x,y=y,color=c)) + geom_point()
print(plot)

目的の使用構文:

##Example of Intended Usage, which Throws Error ----- "object 'xcol' not found"
mywrapper(data=myData,xcol=x,ycol=y,colorVar=c)

上記は、ggplot2 パッケージによる「元の」使用例と、それを別の関数にラップする方法の例を示しています。ただし、ラッパーはエラーをスローします。

これは他の多くのアプリケーションにも当てはまると確信しており、おそらく何千回も回答されていると思いますが、R 内でこの件名が「呼ばれる」ものかどうかはわかりません.