Les Faces de Chernoff

Import["https://raw.githubusercontent.com/antononcube/\
MathematicaForPrediction/master/MathematicaForPredictionUtilities.m"]

Import["https://raw.githubusercontent.com/antononcube/\
MathematicaForPrediction/master/ChernoffFaces.m"]

data = {{7.5, 22, 10.5, 2.5, 1.5}, {5, 25, 10.5, 5, 4.5}, {5, 23, 10.5, 7.5, 
  0}, {7.5, 13, 0, 2.5, 3}, {5, 17, 7, 5, 0}, {5, 15.5, 10.5, 0, 
  0}, {5, 22, 10.5, 5, 1.5}, {5, 22.5, 10.5, 2.5, 4.5}, {2.5, 15.5, 
  10.5, 2.5, 0}, {2.5, 14.5, 10.5, 0, 1.5}, {7.5, 19, 3.5, 5, 
  3}, {7.5, 18, 0, 7.5, 3}, {5, 14, 0, 7.5, 1.5}, {5, 27.5, 10.5, 7.5,
   4.5}, {5, 13.5, 7, 0, 1.5}, {5, 25, 10.5, 5, 4.5}}

columnNames = {"Identificateur", "Hierarchie", "Deficience", 
   "Etat_struct", "Cote_globale"};

Manipulate[
 DynamicModule[{wsize = 800, hsize = 400, paneOpts},

  data = tableau;

  data = If[! MatrixQ[data], Transpose[{data}], data];

  numCols = Pick[Range[1, Dimensions[data][[2]]], 
    VectorQ[#, NumericQ] & /@ Transpose[data]];
  rdata = VariablesRescale[N@data[[All, numCols]]];

  paneOpts = {ImageSize -> {wsize, hsize}, Scrollbars -> True};

  TabView[{"Les Faces de Chernoff" -> 
     Pane[Multicolumn[
       MapIndexed[
        ChernoffFace[#1, PlotLabel -> #2[[1]], ImageSize -> 100] &, 
        rdata], 5, Appearance -> "Horizontal"], paneOpts], 
    "Résumé" -> 
     Pane[Grid[{{"Nom du Fichier", fichier <> ".csv"}, {"Dimensions", 
         Dimensions[data]}, {"Résumé", 
         Multicolumn[RecordsSummary[N@data, columnNames], 3, 
          Dividers -> All]}}, Alignment -> Left, Dividers -> All], 
      paneOpts], 
    "Data" -> 
     Pane[GridTableForm[tableau, TableHeadings -> columnNames], 
      paneOpts]}]]]