We have been discussing this in-house this weekend. Here is some code that emerged for purposes of changing colors.

Manipulate[
 AnatomyPlot3D[{AnatomyStyling[<|
     Entity["AnatomicalStructure", "SkinOfNeck"] -> Directive[sc],
     Entity["AnatomicalStructure", "SkinOfHead"] -> Directive[sc],
     Entity["AnatomicalStructure", "Ear"] -> Directive[sc],
     Entity["AnatomicalStructure", "HairOfHead"] ->
      Directive[Specularity[GrayLevel[.1], 1], hc]|>],
   Entity["AnatomicalStructure", "SkinOfNeck"],
   Entity["AnatomicalStructure", "Ear"],
   Entity["AnatomicalStructure", "SkinOfHead"],
   Entity["AnatomicalStructure", "HairOfHead"]}],
 {{sc, RGBColor[{0.737, 0.592, 0.384}], "skin color"},
  Dynamic[skincolors, SynchronousUpdating -> False],
  ControlType -> SetterBar},
 {{hc, Brown, "hair color"}, {Black, Gray, White, Brown, Yellow,
   Orange}, ControlType -> SetterBar},
 SynchronousUpdating -> False, SynchronousInitialization -> False,
 Initialization :> (
   getSkinColors[skintype_Integer /; 1 <= skintype <= 6] :=
    Cases[WolframAlpha[
      "skin type " <>
       IntegerString[skintype], {{"BasicProperties:SkinTypes", 1},
       "Content"},
      PodStates -> {"BasicProperties:SkinTypes__More",
        "BasicProperties:SkinTypes__Less"}], _RGBColor, \[Infinity]];
   skincolors = getSkinColors[5]
   )] 

An alternative:

getSkinColors[skintype_Integer /; 1 <= skintype <= 6] :=
 Cases[WolframAlpha[
   "skin type " <>
    IntegerString[skintype], {{"BasicProperties:SkinTypes", 1},
    "Content"},
   PodStates -> {"BasicProperties:SkinTypes__More",
     "BasicProperties:SkinTypes__Less"}], _RGBColor, \[Infinity]]

skincolors = getSkinColors[5]

AnatomyPlot3D[{AnatomyStyling[<|
    Entity["AnatomicalStructure", "SkinOfNeck"] ->
     Directive[skincolors[[7]]],
    Entity["AnatomicalStructure", "SkinOfHead"] ->
     Directive[skincolors[[7]]],
    Entity["AnatomicalStructure", "Ear"] ->
     Directive[skincolors[[7]]],
    Entity["AnatomicalStructure", "HairOfHead"] ->
     Directive[Specularity[GrayLevel[.1], 1], GrayLevel[.1]]|>],
  Entity["AnatomicalStructure", "SkinOfNeck"],
  Entity["AnatomicalStructure", "Ear"],
  Entity["AnatomicalStructure", "SkinOfHead"],
  Entity["AnatomicalStructure", "HairOfHead"]}]

(I am no expert in this area and am posting what has been proposed. We recognize this is far from perfect.)

As for the lack of diversity in the available model, I will give my understanding of the present status. Currently our one access is to a free source, from a project that is not heavily staffed. They are aware there is a need for far greater diversity in terms of age, gender, geography and ethnicity. But we do not have a time frame for when more such data might become available to us. We apologize for any inconvenience that this might cause for anatomical modeling or other applications

I'm not entirely buying this. 50%+ of the population are women. Light-skinned people make up a minority of the world's population, and blondes make up only a small fraction.

Unless prevented from doing so by license restrictions, WRI could edit the figures to have (at a minimum) brown/black hair and a more neutral skin color. It would not address the larger issue, but at the very least would not be quite so offensive.

It would also be useful to provide a way to change colors, but this may be available already. If The Sims can do it, why not Wolfram?

I think it is great that we are having this discussion.

George makes a great point. Wolfram, and many other curators, rely on outside sources.

Perhaps we should also be making this point with the outside curators. But, even so, it will take time to see the needed change. While patience is a virtue, we must continue to demand progress.

Thank you for making me aware of this. I hope some of you join me in continuing to raise the need for diversity and inclusion with content makers.