tmp_DT_all_countries <- aggregateDT(DT.users, exclude=c("country", "product", "product_description"))[, country := "global"]

colGroups = list(Streams = c(Spotify="total_streams", `Orchard+RED`="orchard_and_osc_streams")
                 , Revenue = c(Spotify="spotify_net_revenue_usd", `Orchard+RED`="orchard_and_osc_revenue_usd"))


tmp_DT_all_countries2 <- normalizeAndStack(DT=tmp_DT_all_countries, colGroups=colGroups, variable.name="Spot_Orch")
tmp_DT_all_countries3 <- normalizeAndStack(DT=tmp_DT_all_countries, colGroups=colGroups, variable.name="Spot_Orch", scaleFunc=percOfTotal, byCols.scale="date")



ggLinegraph(tmp_DT_all_countries2, x="date", y="Streams", color="revenue_share", facet_formula ="Spot_Orch ~ .", facet_scales="free")
ggLinegraph(tmp_DT_all_countries2[revenue_share != "55"], x="date", y="Streams", color="Spot_Orch", facet_formula ="revenue_share ~ .", y_lim=c(-1, 1.1))


ggLinegraph(tmp_DT_all_countries3, x="date", y="Streams", color="Spot_Orch", facet_formula ="revenue_share ~ .", facet_scales="free")
ggLinegraph(tmp_DT_all_countries3, x="date", y="Streams", color="Spot_Orch", facet_formula =".~revenue_share", size=0.5, dotsize=0.2)
ggLinegraph(tmp_DT_all_countries3, x="date", y="Revenue", color="Spot_Orch", facet_formula =".~revenue_share", size=0.5, dotsize=0.2)