i have the following
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)}
the output from eval is facet_grid( ~ col)
whereas should be facet_grid( .~ col), scales='free'
when i specify facet_string='.~col,scales=\'free\'
and then when i want to plot facet_grid the scales are ignored! What i should do to have the expression as it should be with scales='free' in?