Here is a link to the recently approved Wolfram Function Repository function ChernoffFace.

There are some important extensions of the original ChernoffFace scope described above:

• allowing for auto-coloring with the option "ColorFunction", and

• allowing a list of records to be visualized.

The latter is not done just with a Map call -- if the data argument can be interpreted as a full array, then the columns are rescaled first. (Each column is rescaled separately.)

An example illustrating that follows.

Get the "USArrests" data:

data = ExampleData[{"Statistics", "USArrests"}];
Dimensions[data]
(* {50, 5} *)

Get the corresponding column names:

dataColumnNames = ExampleData[{"Statistics", "USArrests"}, "ColumnHeadings"]    
(* {"StateName", "Murder", "Assault", "UrbanPopulation", "Rape"} *)

Here is a summary of the dataset:

ResourceFunction["RecordsSummary"][data, dataColumnNames]

Visualize with Chernoff faces:

Block[{data = data[[All, 2 ;; -1]], recNames = data[[All, 1]], dataColumnNames = dataColumnNames[[2 ;; -1]], imgs},
 imgs = ResourceFunction["ChernoffFace"][data, ColorFunction -> "Rainbow", ImageSize -> 100];
 imgs = MapThread[Append[#1, PlotLabel -> #2] &, {imgs, recNames}];
 Legended[
  Grid[Partition[imgs, 8], Dividers -> All],
  Placed[Framed[
    Grid[Thread[{Take[Keys@ResourceFunction["ChernoffFace"]["FaceParts"], Length[dataColumnNames]], dataColumnNames}], 
     Alignment -> {{Right, Left}}]], "Top"]]
 ]

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}]

- another post of yours has been selected for the Staff Picks group, congratulations !

We are happy to see you at the tops of the "Featured Contributor" board. Thank you for your wonderful contributions, and please keep them coming!