Analyze a Color-Based Diet

Obtain a list of foods with the same common outside color

Find the most common outside color for each food type:

In[1]:=

foodTypeToColor=DeleteMissing[EntityValue["FoodType","CommonOutsideColor","EntityAssociation"]];

Group the food types by color:

In[2]:=

colorToFoodTypes=GroupBy[foodTypeToColor,Identity,Keys];

Find RGB colors for each food color:

In[3]:=

colorEntityToRGB=EntityValue[Keys[colorToFoodTypes],"TypicalColorValue","EntityAssociation"];

Create a

expression to see the values in a table:

In[4]:=

colorDietDataset=Dataset@Merge[{colorToFoodTypes,colorEntityToRGB},AssociationThread[{"FoodTypes","RGBColor"}#]&];

In[5]:=

Values["Color"#RGBColor,"Examples"Take[#FoodTypes,UpTo[2]],"FoodTypeCount"Length[#FoodTypes]&/@colorDietDataset]

Out[5]=

Gather the caloric distribution of the foods for each outside color:

In[6]:=

calorieDistributions=KeyValueMap[Style[EntityValue[#2["FoodTypes"],"RelativeTotalCaloriesContent",DeleteMissing],#2["RGBColor"]]&,colorDietDataset];

Visualize the calorie distributions using the colors associated with each one:

In[7]:=

BoxWhiskerChartcalorieDistributions,



Out[7]=

Visualize the average nutrition of the food colors sized by count in 3D nutrition space:

In[8]:=

BubbleChart3DStyleAppendEntityValue#FoodTypes,

relative protein content

relative fat content

relative carbohydrate content

,DeleteMissing/*Median,Length[#FoodTypes],#RGBColor&/@Values@Normal@colorDietDataset,



Out[8]=

Related Symbols