WOLFRAM

Wolfram Language & System Documentation Center

Identify People in a Photo

Wolfram Language code: img = [image];
Identify faces in a photo and draw a colored square around each match:
Wolfram Language code: faces = FindFaces[img, {40, 50}];
Wolfram Language code: newimg = Show[img, Graphics[Table[ {EdgeForm[{Thick, Hue[Rescale[i, {0, Length[faces]}]]}], FaceForm[], Rectangle@@faces[[i]]}, {i, Length[faces]}]]]
Create a swatch legend that matches each person's name with the colored square:
Wolfram Language code: legend[layout_] := SwatchLegend[Table[Hue[Rescale[i, {0, Length[faces]}]], {i, Length[faces]}], {"Mark", "Cynthia", "Michelle", "Adrian", "Rachel"}, LegendMarkerSize -> Medium, LabelStyle -> {GrayLevel[0.3], 16, Bold}, LegendLayout -> layout]
Wolfram Language code: legend["Row"]
Add the legend to the photo:
Wolfram Language code: Legended[newimg, legend["Column"]]
Change the legend position and orientation:
Wolfram Language code: Legended[newimg, Placed[legend["Row"], Below]]