## Round to digs
digs <- (-2)

DB.Summary.byPrio_And_Adds <- 
  DB.using.during[weeks=="total"
        , formnumb(as.list(c("Total" = as.numeric(sum(Count)), summary(Count))), round=digs)
        , by=list("Priority"=mkt_priority, SpotifyAddRan.char)]

DB.Summary.byPrio <- 
  DB.using.during[weeks=="total"
        , formnumb(as.list(c("Total" = as.numeric(sum(Count)), summary(Count))), round=digs)
        , by=list("Priority"=mkt_priority)]


MEANS.casted <- reshapeDT(DB.Summary.byPrio_And_Adds, by="Priority", name="SpotifyAddRan.char", value=c("Mean"))
matchKey(MEANS.casted, DB.Summary.byPrio, "Priority")
MEANS.casted[DB.Summary.byPrio, Overall := i.Mean]
setcolorderpt(MEANS.casted, c("Priority", "Overall"))
MEANS.casted

DB.Summary.byPrio_And_Adds[, CJ(unique(Priority), unique(SpotifyAddRan.char))]
DB.Summary.byPrio_And_Adds[, setNames(as.list(Mean), SpotifyAddRan.char), by=Priority ]
?reshape2::acast




{
cot("The average Streams for the first six weeks of release:")
cot(MEANS.casted)
}