setScience("misc")
setGitBranchToSystem(); .g()

DT.top_o_and_o <- sfQry("SELECT labelid, label_name, sum(gross_revenue_usd) as gross from bi.accounting where activity_month >= '2015-01-01' AND label_is_o_and_o = 1 group by 1, 2 ORDER BY gross desc")
DT.top_o_and_o

DT.owned_releases <- sfQry(makeQry(schema="production", tbl="dim_release", whereIn=list(labelid=DT.top_o_and_o$labelid), colsToPull=c("labelid", "releasedate"), colsToAgg=c("releases"="*"), aggFunc="count", limit=NULL))

jesusForData("DT.top_o_and_o")
jesusForData("DT.owned_releases")
DT.owned_releases[, list(releases=sum(releases)), keyby=year(releasedate)]

.ljo("~rsaporta/git/orch/data/misc/DT.owned_releases-20160405_2227-6002x3.RDS")

DT.yearly_releases <- DT.owned_releases[, list(releases=sum(releases)), keyby=year(releasedate)]
DT.yearly_releases[year < 2000, year := 2000]
DT.yearly_releases <- DT.yearly_releases[, list(releases=sum(releases)), keyby=year]
ggplot(data=DT.yearly_releases, aes(x=year, y=releases)) + geom_bar(stat="identity")