Is there an easy way to display Automatically the Frameticks at the bottom and top in a BoxWhiskerChart? Currently it is only showing the numbers at the bottom.
data = Table[{i, RandomVariate[NormalDistribution[i, 2], 100]}, {i,
100, 125}];
BoxWhiskerChart[data[[All, 2]], BarOrigin -> Left,
ChartLabels -> data[[All, 1]], AspectRatio -> 1,
GridLines -> {Automatic, None},
FrameTicks -> {{None, None}, {Automatic, Automatic}}]