modified: bplot.R