## ------------------------------------------------------------------------ ##
##  DIFF BETWEEN STREAM COUNTS
## ------------------------------------------------------------------------ ##


  M1 <- melt(DT.using.D[Company=="Orchard" & Users>0, list(Month, "Accounting Summary"=Streams, "Raw Analytics"=Streams_analytics)], measure.vars=c("Raw Analytics", "Accounting Summary"), variable.name="Source")
  M1[, Source := factor(Source, levels=c("Accounting Summary", "Raw Analytics", "[Scaled Ratio]")) ]
  setkey(M1, Source)

  ## Ratio  --  same as:  DT.using.D[Users>0 & Company=="Orchard", (Streams_analytics-Streams)/Streams, by=Month]
  M1.r <- M1[,  list("Difference in\nReported Streams"="Scaled Ratio of\nRaw : Accounting", ratio=mean(M1$value) * (0.5 + diff(value)/value[[1]])), by=Month]


  P.StreamsDiff <- 
    ggplot(data=M1, aes(x=Month)) + 
      geom_bar(aes(y=value, fill=Source), alpha=.52, stat="identity", position=position_dodge()) + 
      geom_line(data=M1.r, aes(y=ratio, color=`Difference in\nReported Streams`), size=2, alpha=1) + 
      geom_hline(y=mean(M1$value*.5), color="gray70", size=1, lty="dashed", alpha=0.5) + 
      scale_color_manual(values=c("Accounting Summary" ="Dark Red", "Raw Analytics"="Dark Blue", "Scaled Ratio of\nRaw : Accounting"="black")) + 
      scale_fill_manual(values=c("Accounting Summary" ="Dark Red", "Raw Analytics"="Dark Blue", "Scaled Ratio of\nRaw : Accounting"="black")) + 
      ## Legend ordering
      guides(fill = guide_legend(order = 1), 
            color = guide_legend(order = 2)) +
      millions.y() + 
       labs(y="Number of Streams (in Millions)\nwith\nRatio of Difference in reporting\n(Gray dotted line is where the ratio is 1:1)")

## ------------------------------------------------------------------------ ##