ggBoxPlot <- function(DT, width = 1.5, ymax = 2, what = "revenue")
{

  DT.plot <- reshape2::melt(DT, measure.vars=c("paidunits.perc.acc_of_anal", "revenue.perc.acc_of_anal"))
  DT.plot[,  variable := gsub("\\.perc.acc_of_anal", "", variable)]

  title = topropper(what)
  ylab  = sprintf("OA Accounting as percent of OA Analytics", topropper(what))
  xlab  = ""
  string.months_back <- sprintf("Months back from %s", format(DT[, max(date)], "%b %Y"))
   ggplot(data=DT.plot[transac_type_abbr != "UT"], 
          aes(x=transac_type_abbr, y=value, fill=variable, color=months_back_from_max_date)) + 
      geom_boxplot(width=width, outlier.size=0)  +
      geom_point(position=position_jitter())  +
      # fill_by_dict("dict.colors.sc")   +
      # facet_grid("store_name + transac_type_abbr ~ .") + 
      scale_fill_discrete(name = "") +
      scale_color_continuous(name = string.months_back) +
      labs(x=xlab, y=ylab, title=title) + 
      facet_grid(". ~ music_vs_video_by_transac + variable", scale="free_x") +
      legendbottom() + gg_hline(1, size=.4) + relativetext(x=1, y=.7) + percent.y()
      # + scale_y_log10() # percent.y(lim=c(0, ymax))
 }