add an argument to bars_fun to split graph as facet_wrap

a new argument in bars_fun() named split to separate compositional barplot like facet_wrap