Here is a combination of Chernoff faces and SectorChart plots:
facesGrid =
Grid[ArrayReshape[#, {3, 4}, ""], Dividers -> All, Alignment -> {Left, Top}] &@
MapThread[
(asc =
AssociationThread[
Take[Keys@ChernoffFace["FacePartsProperties"],
Length[#3] + 1] -> Append[#3, #4]];
Grid[{
{Row[{"row:", #1, ", x=", #2}], SpanFromLeft},
{ChernoffFace[Join[asc, <|"FaceColor" -> Blend[{White, Lighter[Yellow]}, #4]|>],
ImageSize -> 150, AspectRatio -> Automatic],
SectorChart[Transpose@{ConstantArray[1, Length[#3]], #5}]}}]) &
, {Range[Length[data]], First /@ data,
Transpose[Rescale /@ Transpose[Rest /@ data]],
PearsonChiSquareTest[Standardize[Rest[#]], NormalDistribution[0, 1]] & /@ data,
Rest /@ data}]
