lib(ggplot)
setScience("Albums_vs_Tracks", create=TRUE)


# OLD:  ## data downloaded from looker:     https://theorchard.looker.com/x/TfRq569
# OLD:  f.in <- "~/gitData/orch/data/Albums_vs_Tracks/iTunes Tracks vs Albums.csv"
# OLD:  it <- fread(f.in)
# OLD:  
# OLD:  it[, Month := as.Date(sprintf("%s-01", `MONTH Activity Month`))]
# OLD:  it[, `MONTH Activity Month` := NULL]
# OLD:  
# OLD:  setnames(it, c("TRANSACTION Album Or Track", "TOTAL Gross"), c("AvT", "Gross"))


DT.album_vs_track <- runQry(makeQry(tbl="analytics", schema="bi"
                        , colsToPull=c("store_name_short", "download_accounting_month", "album_vs_track", "release_genre", "release_name", "continent_ordered")
                        , colsToAgg=c("gest", "paidunits", "freeunits")
                        , where=list(storeid=1)
                        , minDate = "2012-01-01"
                        , dateCol="download_accounting_month"
                        ))
setkey(DT.album_vs_track, album_vs_track, download_accounting_month, release_genre, release_name)
jesusForData(DT.album_vs_track)

------  Double Check what the rest is ------ 


AvTGraph <- function(y, ylab, yscale=if(y=="Gross") millions.y else if(y=="Delta") percent.y else scale_y_continuous, data=it) {
  ggplot(data=data, aes(x=Month, color=AvT, shape=AvT)) + geom_line(aes_string(y=y)) + legendbottom(TRUE) + match.fun(yscale)() + ylab(ylab) + xlab("")
}


P.G <- AvTGraph(y="Gross", ylab="Gross (in Millions)")
P.D <- AvTGraph(y="Delta", ylab="Change in Gross")
printToPDF(list(P.G, P.D), ncol=1, f.name="Albums vs Tracks", dir="~/Plots", sub=orchardFootNote(), main="iTunes Gross Revenue since 2012")

# Removing Jan 2013.  If you want to do this, you have to recalculate the deltas too. 
# P.G2 <- AvTGraph(y="Gross", ylab="Gross (in Millions)", data=it[Month != as.Date("2013-01-01")])
# P.D2 <- AvTGraph(y="Delta", ylab="Change in Gross", data=it[Month != as.Date("2013-01-01")])
# printToPDF(list(P.G2, P.D2), ncol=1, f.name="Albums vs Tracks - removed Jan 2013", dir="~/Plots", sub=orchardFootNote(), main="iTunes Gross Revenue since 2012")


AvTGraph(y="Delta", ylab="Change in Gross", data=it[Month >= "2012-11-01"])