# NOT RUN {
dts <- subset(Pbox, Team=="Houston Rockets" & MIN>=500)
barline(data=dts, id="Player", bars=c("P2p","P3p","FTp"),
line="MIN", order.by="Player",
labels.bars=c("2P","3P","FT"), title="Houston Rockets")
# }
Run the code above in your browser using DataLab