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