R：eval（）在解析（）后忽略scale ='free'

Question

我有以下

  

    

fun<-function(...,facet_string){ code... aes_facet <-eval(parse(text = paste("facet_grid(",facet.string,")"))) code... if(facet.string!='') { p<-p+facet_grid(aes_facet)}

  

eval的输出为facet_grid( ~ col) 而应该是facet_grid( .~ col), scales='free' 当我指定facet_string='.~col,scales=\'free\'时 然后当我想绘制facet_grid时，缩放比例被忽略！我该怎么做才能在{？1}}中使用表达式？