2. #hacky way of doing ppr; know this is still not really acceptable
  3. final$player_ppr <- paste0(final$player,"_",final$ppr)
  4. dPlotPPR <- dPlot(
  5. x = c("player","ppr"),
  6. y = "ave",
  7. groups = "player",
  8. data = subset(subset(final,category %in% c("wr")), rank < 20),
  9. type = "bubble",
  10. height = 400,
  11. width = 800,
  12. bounds = list( x = 20, y = 20, width = 700, height = 300)
  13. )
  14. dPlotPPR$xAxis ( orderRule = "ave" )
  15. dPlotPPR