ISRCS2 <- c("UK95S1500002", "QMBZ91504617", "GBR9L1000001", "GBR9L1000001", "GBX721400144", "GBCKK1227103", "USX6D1300038", "USX6D1300038", "UST841000002", "QM7281580572", "QM6P41521927", "QMBZ91573766")
length(ISRCS2)


DT.12_ISRCS <- sfQry(sprintf("SELECT * FROM prod.spot_stream_counts.by_isrc where ISRC in %s", pasteQ(ISRCS2)))
DT.meta <- getISRCMeta(ISRCS2, drop_parent=FALSE)

colsToBring <- c("label_name", "artist_name", "release_name", "track_name")
addColsFrom_(DT.12_ISRCS, DT.meta, joinCols="isrc", colsToBring=colsToBring)


jesusForData("DT.12_ISRCS")


ggLinegraph(DT.12_ISRCS, x="weekof", y="streams", facet_y=rev(colsToBring), title="12 Tracks, by weekof", y_facet_relative_text=.55, facet_scales="free_y")