I am not aware of a method to get your results exactly the way you want, the below script is what I have used for years to get close to those results in an automated fashion. I set it up to run on your attached data table, but it could be easily generalized.
Names Default To Here( 1 );
dt = Current Data Table();
dis = dt << Distribution(
invisible,
Continuous Distribution(
Column( :x ),
Outlier Box Plot( 0 ),
Normal Quantile Plot( 1 ),
Customize Summary Statistics(
Skewness( 1 ),
Kurtosis( 1 ),
Median( 1 ),
Median Absolute Deviation( 1 ),
Robust Mean( 1 ),
Robust Std Dev( 1 )
)
),
Nominal Distribution( Column( :Group ) )
);
// Save the bins
dis << save( Level Midpoints );
// Change the X axis modeling type so the bins are equal distance groupings
dt:Midpoint x << modeling type( ordinal );
// I use the Chart Platform for this because I developed the method long
// before the Graph Builder was available
Chart( X( :Midpoint x, :Group ), Y( N( :x ) ), Stack Bars( 1 ), Bar Chart( 1 ) );
Jim