データにラベルを付ける
　横軸　hibベクトル、縦軸bacrベクトル、データの名前；因子名　として、

>plot(hib,bacr)
>text(x=hib-0.1,y=bacr,colnames(dr))

　で、

　　　

　　
　　。。。