如何在`+`之后将字符串作为独立参数传递？

在将您标记为dup之前，我了解使用字符串作为函数参数，但是我的用例略有不同。我不需要在函数内部传递参数，我想在+（think ggplot2）之后传递动态数量的参数。

（注意：请不要格式化和删除外观精美的####，我将它们留在了里面，以便于简单起见，人们可以将代码复制粘贴到R中）。

这是我的过程：

####因此，让我们重现此示例：

library(condformat)
condformat(iris[c(1:5,70:75, 120:125),]) +
   rule_fill_discrete(Species) +
   rule_fill_discrete(Petal.Width) 

####我希望能够rule_fill_discrete()动态地传递这两个函数（在我的实际用例中，我有可变数量的可能输入，并且无法对其进行硬编码）。

####首先，创建一个泛化函数：

PlotSeries <- function(x){
   b=NULL
   for (i in 1:length(x)){
     a <- paste('rule_fill_discrete(',x[i],')',sep="")
     b <- paste(paste(b,a,sep="+")) 
     }
   b <- gsub("^\\+","",b)
   eval(parse(text = b))
 }

####与一个参数一起使用

condformat(iris[c(1:5,70:75, 120:125),]) +
   PlotSeries("Species")

####但是如果我们传递两个参数，则不会：

condformat(iris[c(1:5,70:75, 120:125),]) +
   PlotSeries(c("Species","Petal.Width"))

rule_fill_discrete（Species）+ rule_fill_discrete（Petal.Width）中的错误：二进制运算符的非数字参数

####如果我们分别打电话给每个人，它将起作用

condformat(iris[c(1:5,70:75, 120:125),]) +
   PlotSeries("Species") +
   PlotSeries("Petal.Width")

####这给了我们关于问题是什么的指示...当将rule_fill_discrete语句作为一个语句传递时，它不喜欢这样的事实。让我们测试一下：

condformat(iris[c(1:5,70:75, 120:125),]) +
   eval(rule_fill_discrete(Species) +
          rule_fill_discrete(Petal.Width) )

rule_fill_discrete（Species）+ rule_fill_discrete（Petal.Width）中的错误：二进制运算符的非数字参数

####失败。但：

condformat(iris[c(1:5,70:75, 120:125),]) +
   eval(rule_fill_discrete(Species)) +
   eval(rule_fill_discrete(Petal.Width) )

####这有效。但是我们需要能够传递GROUP语句（这很重要）。因此，让我们尝试获取eval语句：

Nasty <- "eval(rule_fill_discrete(Species)) eval(rule_fill_discrete(Petal.Width))"

 condformat(iris[c(1:5,70:75, 120:125),]) + Nasty                   #### FAIL

误差在+.default（condformat（虹膜[C（1：5，70:75，120：125），]），讨厌）：非数字参数二进制运算符

condformat(iris[c(1:5,70:75, 120:125),]) + eval(Nasty)             #### FAIL

错误+.default（condformat（iris [c（1：5，70:75，120：125），]），eval（Nasty））：二进制运算符的非数字参数

condformat(iris[c(1:5,70:75, 120:125),]) + parse(text=Nasty)       #### FAIL

错误+.default（condformat（iris [c（1：5，70:75，120：125），]），parse（text = Nasty））：二进制运算符的非数字参数

condformat(iris[c(1:5,70:75, 120:125),]) + eval(parse(text=Nasty)) #### FAIL

eval（rule_fill_discrete（Species））+ eval（rule_fill_discrete（Petal.Width））中的错误：二进制运算符的非数字参数

那么我们该怎么做呢？