DT.bak <- copy(GM) DT <- sampleRows(DT.bak, n.rows=3e4, seed=1) ggScaledDensityGrid <- function(DT, x, color, byCols=NULL, by.is.quoted=FALSE) require(ggplot2) require(gridExtra) require(scales) P <- ggplot(DT) + geom_density(aes(x=duration.perc, fill=track), color=0, alpha=0.3) +.nolegend + labs(title=.SD$track, x=NULL, y=NULL) + scale_x_continuous(labels=percent) P + geom_vline(data=unique(DT[, list(isrc, track, ThirtySecMark)], by="isrc"), aes(xintercept=ThirtySecMark, color=track)) )) , by=by.cols] ======================= ## eg by.cols <- quote({((as.numeric(isrc)+1) %/% 3)%%3}) Plots.DT <- DT[, list(gorb=list( ggplot(.SD) + geom_density(aes(x=duration.perc/100, fill=track), color=0, alpha=0.3) +.nolegend + labs(title=.SD$track, x=NULL, y=NULL) + scale_x_continuous(labels=percent) )) , by=by.cols] Plots.DT Plots.DT[1, gorb] library(gridExtra) do.call(grid.arrange, c(Plots$V1, list(ncol=1))) === WHERE country_code='US' ===== vendor_identifer vendor_offer_code nms <- names(iT) (GlitchMob) Revo> setNames(nms, seq(nms)) 1 2 3 4 5 6 7 8 9 10 11 12 "provider" "service_provider_country" "vendor_identifier" "upc" "isrc" "artist" "title" "record_company" "product_type_identifier" "units" "royalty_price" "download_activity_date" 13 14 15 16 17 18 19 20 21 22 23 24 "order_id" "postal_code" "customer_identifier" "download_date" "sale_return" "customer_currency" "country_code" "royalty_currency" "preorder" "isan" "customer_price" "apple_id" 25 26 27 28 29 30 31 32 33 34 35 36 "cma" "asset" "vendor_offer_code" "grid" "promo_code" "parent_id" "season_pass" "belongs_to_ioda" "attributable_purchase" "primary_genre" "parent_type_id" "original_upc" (GlitchMob) Revo> iT provider service_provider_country vendor_identifier upc isrc artist title record_company product_type_identifier units royalty_price download_activity_date order_id postal_code customer_identifier download_date sale_return customer_currency country_code royalty_currency preorder isan 1: US 3649750 0 USBMD1010003 The Glitch Mob Animus Vox Glass Air H 1 0.71 2012-10-27 62001764807132 71126 6664309852 2012-10-28 S EUR DE EUR 2: US 3649753 0 USBMD1010006 The Glitch Mob A Dream Within A Dream Glass Air H 1 0.70 2013-04-28 99000403631949 T0K 1Z0 6715754312 2013-04-28 S CAD CA CAD 3: US 0 USBMD1010011 The Glitch Mob Fortune Days Glass Air H 1 0.70 2013-02-01 26001801394407 85338-1791 5234206272 2013-02-01 S USD US USD 4: US 0 USBMD1010003 The Glitch Mob Animus Vox Glass Air H 1 0.70 2013-03-31 26001961518518 76028-6277 1100439187 2013-03-31 S USD US USD 5: US 0 USBMD1010003 The Glitch Mob Animus Vox Glass Air H 1 0.70 2013-03-05 26001890159495 78705-3028 5153774157 2013-03-05 S USD US USD 6: US 0 USBMD1010010 The Glitch Mob Drive It Like You Stole It Glass Air H 1 0.70 2013-04-06 27002047718654 80502-0015 409058222 2013-04-06 S USD US USD 7: US 0 USBMD1100002 The Glitch Mob Warrior Concerto Glass Air H 1 0.70 2013-03-26 84001521300617 02056-0033 2955890382 2013-03-26 S USD US USD 8: US 0 USBMD1010005 The Glitch Mob How To Be Eaten By A Woman Glass Air H 1 0.70 2012-12-26 88000648591783 94521-4918 982764627 2012-12-26 S USD US USD 9: US 0 USBMD1010011 The Glitch Mob Fortune Days Glass Air H 1 0.70 2013-03-14 76000363235263 75022-8135 606797862 2013-03-14 S USD US USD 10: US 0 USBMD1010011 The Glitch Mob Fortune Days Glass Air H 1 0.70 2013-01-08 26001756240222 93021-2516 654875582 2013-01-08 S USD US USD 11: US 3649751 0 USBMD1010004 The Glitch Mob Bad Wings Glass Air H 1 0.70 2012-10-18 64001350789348 96782-1362 5077542667 2012-10-18 S USD US USD 12: US 0 USBMD1010011 The Glitch Mob Fortune Days Glass Air H 1 0.70 2013-02-14 22002034753236 V5K 2H1 5071041847 2013-02-14 S CAD CA CAD customer_price apple_id cma asset vendor_offer_code grid promo_code parent_id season_pass belongs_to_ioda attributable_purchase primary_genre parent_type_id original_upc 1: 0.9900 367738740 Y NA 2: 0.9900 367738792 313439 Y NA 3: 0.9900 367738907 313439 Y NA 4: 0.9900 367738740 313439 Y NA 5: 0.9900 367738740 313439 Y NA 6: 0.9900 367738900 313439 Y NA 7: 0.9900 445708719 381862_4383246 Y NA 8: 0.0000 367738786 Y NA 9: 0.9900 367738907 Y NA 10: 0.9900 367738907 Y NA 11: 0.9900 367738754 313439 Y NA 12: 0.9900 367738907 Y NA (GlitchMob) Revo> nms[4, 5, 6, 7, 9, 10, 12, 13, 14, 15, 17, 21, 23, ]