Q.rev <- 
"SELECT * FROM (
SELECT SUM(gross) AS gross,
       SUM(net_receipt) AS net, SUM(actual_net) AS acutal_net,
       accountingperiodid
FROM fact_sales
WHERE storeid = 286
      AND accountingperiodid > 166
GROUP BY accountingperiodid )
JOIN dim_period
ON periodid = accountingperiodid
order BY periodid"

qres.rev <- runQry(Q.rev)

qres.rev[, Month := as.Date(sprintf("%4s-%02i-01", year, as.numeric(month)))]
qres.rev[, c("month", "quarter", "year", "accountingperiodid", "periodid") := NULL]

P.Revenue + geom_line(data=qres.rev, aes(x=Month, y=net), color="dark blue")