These releases have a $0 retail price, yet have a high gross value.  What is going on here? 

analytics()
Qres <- runQry("
SELECT retail_price, isrcid, releaseid, storename as store, sales as units, gross, labelname as label, f.labelid, owner
FROM fact_sales f
LEFT join dim_store s 
ON s.storeid = f.storeid
LEFT join dim_label l 
ON l.labelid = f.labelid
WHERE retail_price=0 
	AND accountingperiodid=180 
	AND gross > 5 ")


Qres[, releaseid := as.character(releaseid)]
Qres[store == "Amazon Digital Services Inc.", store := "Amazon"]

QR2 <- Qres[, list("Total_Revenue"=sum(gross), "Total_Units"=sum(units)), keyby=list(releaseid, store, isrcid, label, labelid, owner)]
QR2[, NumbOfTracks_at_Zero_dollars := .N, by=list(releaseid, store)]

QR2[, rev_rank := rank(Total_Revenue)]
QR2[, rev_rank := min(rev_rank), by=releaseid]
QR2 <- QR2[order(rev_rank, releaseid, decreasing=TRUE)]
QR2[, rev_rank := NULL]

setcolorderpt(QR2, c("releaseid", "label", "labelid", "store"))

write.table(QR2, file="~/Zero_Dollar_Price.tsv", sep="\t", row.names=FALSE, col.names=TRUE)