data=BlockRandom[SeedRandom[4];
MapThread[RandomVariate[NormalDistribution[#1,#2],100]&,{RandomReal[{-1,1},6],RandomReal[{1.5,2},6]}]];

chrtAll=BoxWhiskerChart[data,"Notched",ChartLabels->{1,2,3,Text[Style["4",Bold,FontSize->12,Underlined]],5,Text[Style["6",Bold,FontSize->12,Underlined]]},ChartElementFunction->"GlassBoxWhisker",ChartStyle->"SolarColors",ImageSize->250];
chrt2=DistributionChart[data,ChartStyle->"SolarColors",ImageSize->250,ChartElementFunction->"PointDensity",ChartLabels->{Text[Style["1",Bold,FontSize->12,Underlined]],2,Text[Style["3",Bold,FontSize->12,Underlined]],4,5,6}];

lt=LocationTest[{data[[1]],data[[3]]},Automatic,{"TestDataTable",All}];
vt=VarianceEquivalenceTest[{data[[4]],data[[6]]},{"TestDataTable",All}];
Grid[{{lt,chrt2},{chrtAll,vt}},Spacings->{0,0}]