ScatPlot(DB.Plot, x="impressions", y="ratio", color="genre", shape="format"
       , title=NULL, bottom.perc.cutoff=5, colpalette=genreColors, white.empha.filter=expression(format!="Album"))

ScatPlot(DB.Plot, x="impressions", y="ratio", color="format", shape="genre2"
       , title=NULL, bottom.perc.cutoff=5, white.empha.filter=expression(format!="Album"))

### ----- ###
ScatPlot(DB.Plot, x="impressions", y="ratio", color="format", shape="genre"
        , title=NULL, bottom.perc.cutoff=5
  #      , black.empha.filter=expression(genre=="Punk")
  #      , white.empha.filter=expression(genre=="Rock")
        )


### ----- ###
ScatPlot(DB.Plot, x="impressions", y="ratio", shape="artist_country", color="genre", bottom.perc.cutoff=0, mute=list(shape=c("US")) )

a.countries.using <- unique(DB.Plot, by="upc")[, .N, by=artist_country][N >= 3, artist_country]
fac <- formula(". ~ artist_country")
ScatPlot(DB.Plot[artist_country %in% a.countries.using], x="impressions1K", y="ctr", color="genre", bottom.perc.cutoff=0, facet.formula=fac, pointSize="(total)", shape="format")

ScatPlot(DB.Plot[artist_country %in% a.countries.using], x="impressions1K", y="ctr", color="genre", bottom.perc.cutoff=0, facet.formula=fac, pointSize=3, shape="format")

ScatPlot(unique(DB.Plot, by=c("upc"))[artist_country %in% a.countries.using], x="impressions1K", y="ctr", color="genre", bottom.perc.cutoff=0, facet.formula=fac, pointSize=3, shape="format")


~~ OTHER PARTS TO USE ~~

    y = total downloads
    size = ratio

    product_type_id    1
    week               2
    format             3
    mkt_priority       4
    label_priority     4
    genre2             6
    subaccountId       6
    label_country      7
    XLS.genre          8
    genre              8
    artist_country    11


ScatPlot(DB.Plot, x="impressions", y="ratio", color="genre", shape="format", title=NULL
        , bottom.perc.cutoff=0, colpalette=genreColors)
ScatPlot(DB.Plot, x="impressions", y="ratio", color="genre", shape="format", title=NULL
        , bottom.perc.cutoff=5, colpalette=genreColors)
  
  
ScatPlot(DB.Plot, x="impressions", y="ratio", color="genre", shape="format", title=NULL)
ScatPlot(DB.Plot, x="impressions", y="ratio", color="genre", shape="format", title=NULL, colpalette=genreColors)


#  # 
#  # color
#  # size
#  # shape
#  # alpha
#  # x
#  # y
#  # empha.filter = expression()