我有以下
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 时，比例被忽略！我应该怎么做才能表达应该scales='free'在里面？