lib(ggplot2)
deezer <- DT.storeavg[store == 348]
deezer[, `Transaction Type` := {e <- environment(); factor(transac_typeid, labels=DT.transacs[.(unique(get("transac_typeid", envir=e)))]$transac_type)} ]

k.deez <- c("date", "transac_typeid", "label_sc_group")
setkeyIfNot(deezer, k.deez)
deezer <- deezer[deezer[, CJ(date=seq(min(date), max(date), by="month"), transac_typeid=unique(transac_typeid), label_sc_group=unique(label_sc_group))]]

deezer[, data_present := !is.na(gross)]
deezer[, y := as.numeric(factor(transac_typeid))]


P.deezer_missing_data <- ggplot(data=deezer[], aes(x=date, y=y, fill=`Transaction Type`, alpha=data_present)) + facet_grid(label_sc_group ~ . , scales="free") + geom_tile() + angledtext() + noaxis.y() + labs(title=subtitle("Is Deezer-data present in OA accounting?\n", "    A colored tile indicates data is\npresent for the given group and date."), y="", x="") + scale_alpha_manual(guide=FALSE, values=c(.1, 1)) + nogridminor() + theme(panel.grid.major=element_blank()) 

ggsave.out(P.deezer_missing_data)