Compare Nutrition Content of Different Foods

Generate bar charts of food high in vitamin C or iron with food images as tooltips

Foods high in vitamin C help the body absorb iron. Find images for such foods using

EntityClass

and

EntityProperty

to look for "Raw" food with high "RelativeVitaminCContent":

In[1]:=

foodToVitCData=

foods

preparation

raw	PREPARATION

relative vitamin C content

TakeLargest[21]

[{"Image","RelativeVitaminCContent"},"EntityPropertyAssociation"]//DeleteMissing[#,1,1]&;

Visualize the results as a weighted image collage:

In[2]:=

ImageCollage{#Image,QuantityMagnitude[#RelativeVitaminCContent]}&/@Values[foodToVitCData],



Out[2]=

Extract the dominant colors for each of the images:

In[3]:=

DominantColors[#Image]&/@foodToVitCData

Out[3]=



Acerola, (west indian cherry), raw

(USDA: SR)



,

Acerola juice, raw

(USDA: SR)



,

Peppers, sweet, yellow, raw

(USDA: SR)



,

Currants, european black, raw

(USDA: SR)



,

Pokeberry shoots, (poke), raw

(USDA: SR)



,

Peppers, sweet, red, raw

(USDA: SR)



,

Taro, tahitian, raw

(USDA: SR)



,

Kale, raw

(USDA: SR, USDA Foundation)



,

Broccoli, flower clusters, raw

(USDA: SR)



,

Broccoli, stalks, raw

(USDA: SR)





Choose an ideal color for a subset of these foods. Collect your long expression as an icon:

In[4]:=

foodToSelectedColor=

hand-curated colors for foods high in vitamin C

Out[4]=



Acerola, (west indian cherry), raw

(USDA: SR)



Acerola juice, raw

(USDA: SR)



Peppers, sweet, yellow, raw

(USDA: SR)



Currants, european black, raw

(USDA: SR)



Pokeberry shoots, (poke), raw

(USDA: SR)



Peppers, sweet, red, raw

(USDA: SR)



Kale, raw

(USDA: SR, USDA Foundation)



Taro, tahitian, raw

(USDA: SR)



Broccoli, flower clusters, raw

(USDA: SR)



Broccoli, stalks, raw

(USDA: SR)





Define a labeling function that uses the chosen colors and adds images of the foods as tooltips:

In[5]:=

labelFunction[foodToColor_][food_,data_]:=With{foodColor=Lookup[foodToColor,food],propertyValue=Last[data]},TooltipCalloutLabeledpropertyValue,StyleLookup[data,"Name"],BackgroundOpacity[0.3,foodColor],

,Before,propertyValue//(ToString/*StringReplace[{"None""g/g"}]),BackgroundOpacity[0.6,foodColor],LabelStyleFontColor

[◼]	FontColorFromBackgroundColor

[foodColor],

,

,Lookup[data,"Image"];

Create a function to compare nutrient content of foods in a bar chart using the selected colors:

In[6]:=

NutrientBarChart[foodToColor_Association,property_String]:=Module{foodData},foodData=EntityValue[Keys[foodToColor],{"Image","Name",property},"EntityPropertyAssociation"];BarChartKeyValueMap[labelFunction[foodToColor],SortBy[foodData,Last]],ChartStyleValues[foodToColor],PlotLabelStyleproperty,

,

;

Use the function to compare the vitamin C content of foods:

In[7]:=

NutrientBarChart[foodToSelectedColor,"RelativeVitaminCContent"]

Out[7]=

Repeat for a different set of foods that are high in iron:

In[8]:=

NutrientBarChart

hand-curated list of colors for foods high in iron

,"RelativeIronContent"

Out[8]=

Publisher Information

Contributed by: Wolfram Staff

Wolfram Language Example Repository

Compare Nutrition Content of Different Foods

See Also

Publisher Information

Compare Nutrition Content of Different Foods

See Also

Related Symbols

Publisher Information