draw histgram -- hist function

The updated version after stopping natrix at 2018-08-09.

par(mfrow=c(4,1))
my_bp_hist_x(bp.bangkok,"::2018-06-19",2,70,0.1,0.6,20,15,55,100,4)
my_bp_hist_x(bp.bangkok,"2018-06-21::2018-07-13",2,length(bp.bangkok["2018-06-21::2018-07-13"][,2]),0.1,0.6,20,15,55,100,5)
my_bp_hist_x(bp.bangkok,"2018-07-15::2018-08-09",2,length(bp.bangkok["2018-07-15::2018-08-09"][,2]),0.1,0.6,20,15,55,100,6)
my_bp_hist_x(bp.bangkok,"2018-08-10::",2,length(bp.bangkok["2018-08-10::"][,2]),0.1,0.6,30,15,55,100,7)
par(mfrow=c(1,1))


par(mfrow=c(4,1))
my_bp_hist_x(bp.bangkok,"::2018-06-19",1,70,0.1,0.6,30,15,90,150,4)
my_bp_hist_x(bp.bangkok,"2018-06-21::2018-07-13",1,length(bp.bangkok["2018-06-21::2018-07-13"][,2]),0.1,0.6,20,15,90,150,5)
my_bp_hist_x(bp.bangkok,"2018-07-15::2018-08-09",1,length(bp.bangkok["2018-07-15::2018-08-09"][,2]),0.1,0.6,20,15,90,150,6)
my_bp_hist_x(bp.bangkok,"2018-08-10::",1,length(bp.bangkok["2018-08-10::"][,2]),0.1,0.6,30,15,90,150,7)
par(mfrow=c(1,1))