Problem with a BarChart

I have problems with a graph,

First: I am using data from a list, before I used RamdomReal, but I can’t get it to work.

Second: the statistical data doesn’t appear in the graph, I do not know why.

this the code

Needs["BarCharts`"] Manipulate[SeedRandom[sr]; With[{Rgc1 = Sort[Flatten[{extra, Rgc1}]]}, Grid[{{Text@Style[Row[{"Rgc1 =", Rgc1}], "Label", 10]}, {Text@Style[Row[{"mean = " <> ToString[NumberForm[N[Mean[Rgc1]], {5, 3},NumberPadding -> {" ", "0"}]], "median = " <> ToString[Median[Rgc1]], "modes = " <> ToString[Commonest[Rgc1]]}, Style["  |  ", GrayLevel[.5]]], "Label", 12]}, {BarChart[BinCounts[Rgc1, {Min[1, extra], Max[9, extra] + 1}], BarLabels -> Range[Min[1, extra], Max[10, extra]], ImageSize -> 500, ImagePadding -> {{30, 30}, {30, 30}}]}}]], {{sr, 12, "random seed"}, 1, 1000, 1}, {{extra, 12, "extra value"}, -10, 20,1}, Initialization :> {Needs["BarCharts`"]}, AutorunSequencing -> {2}] 

like this…

enter image description here

Any idea?, thanks in advance 🙂