#hacky way of doing ppr; know this is still not really acceptable
final$player_ppr <- paste0(final$player,"_",final$ppr)
dPlotPPR <- dPlot(
x = c("player","ppr"),
y = "ave",
groups = "player",
data = subset(subset(final,category %in% c("wr")), rank < 20),
type = "bubble",
height = 400,
width = 800,
bounds = list( x = 20, y = 20, width = 700, height = 300)
)
dPlotPPR$xAxis ( orderRule = "ave" )
dPlotPPR