Update B_one_ch_1.R

Correction is required (extend the legend procedure)