df
   x y g  a  b
 1 a 2 1  df df
 2 a 3 2  fg fg
 3 b 4 1  gf gf
 4 b 5 2  fd fd

as <- names(Filter(is.factor, df))
   for(i in 1:length(as))
   {
   ssa <- ggplot(data=df,aes(x==as[i],fill==as[i]))+geom_bar(stat =
   "count")
   }