Macronutrients in Sustainable Foods

Plot the macronutrients in vegetables, grains, legumes and other sustainable foods

Define the string names, and use

to obtain the plant entities:

In[1]:=

plantList={"kale","chickpea","cabbage","beet","millet"}plantEntities=Interpreter["Food"][{"kale","chickpea","cabbage","beet","millet"}]

Out[1]=

{kale,chickpea,cabbage,beet,millet}

Out[2]=



food

food

food

food

food



Get the images with

WebImageSearch

In[3]:=

plantImages=ImageResize[#,150]&/@WebImageSearch[#,1]&/@plantList//Flatten

Out[3]=





Use FoodCompassPlot to diagram the major nutrients as a percentage of recommended daily value:

In[4]:=

plantCompassPlots=

[◼]	FoodCompassPlot

[#]&/@plantEntities

Out[4]=





Display the string names, images, and compass plots in a grid:

In[5]:=

Grid[{plantList,plantImages,plantCompassPlots},FrameAll,ItemSize12]

Out[5]=

kale	chickpea	cabbage	beet	millet

FoodCompassPlot can analyze an entire recipe, like this homemade tahini sauce for drizzling over a veggie bowl:

In[6]:=

ResourceFunction["FoodCompassPlot"]EntityGroupEntityInstance

food

food type

exactly

tahini

FOOD TYPE

added food types

exactly

none

tbsp

,EntityInstance

food

food type

exactly

olive oil

FOOD TYPE

added food types

exactly

none

variety

extra virgin

FOOD VARIETY

tbsp

,EntityInstance

food

food type group

juices

FOOD TYPE GROUP

added food types

exactly

none

source food types

lemon

FOOD TYPE

1.5

tbsp

,EntityInstance

food

food type

exactly

honey

FOOD TYPE

added food types

exactly

none

tbsp

,EntityInstance

food

food type

exactly

salt

FOOD TYPE

added food types

exactly

none

0.25

tsp



Out[6]=

Compare the protein and fiber content of beans and lentils through a bar chart. First, define the string names, and use

Interpreter

to get the associated entities:

In[7]:=

beanStrings={"adzuki beans","black beans","broad beans","cowpeas","lentils","soy beans","kidney beans","chickpeas","pinto beans","cannellini beans","great Northern beans","Navy beans"};beansInterpreted=AssociationThread[Map[Interpreter["Food"][#]&,beanStrings],beanStrings]

Out[7]=



food

adzuki beans,

food

black beans,

food

broad beans,

food

cowpeas,

food

lentils,

food

soy beans,

food

kidney beans,

food

chickpeas,

food

pinto beans,

food

cannellini beans,

food

great Northern beans,

food

Navy beans

Get the relative protein and fiber values for each food entity. Remove the gram units, leaving the numeric value only:

In[8]:=

beanNutritionData=AssociationThread[Keys[beansInterpreted],EntityValue[Keys[beansInterpreted],{"RelativeTotalProteinContent","RelativeTotalFiberContent"},"PropertyAssociation"]];beansDataClean=Map[KeyTake[#,{"RelativeTotalProteinContent","RelativeTotalFiberContent"}]&,KeyMap[beansInterpreted[#]&,Map[N[QuantityMagnitude[#]*1000]&,beanNutritionData,{2}]]]

Out[8]=

adzuki beansRelativeTotalProteinContent136.95,RelativeTotalFiberContent100.,black beansRelativeTotalProteinContent53.8,RelativeTotalFiberContent46.,broad beansRelativeTotalProteinContent62.1,RelativeTotalFiberContent54.,cowpeasRelativeTotalProteinContent51.8,RelativeTotalFiberContent31.5,lentilsRelativeTotalProteinContent250.,RelativeTotalFiberContent281.,soy beansRelativeTotalProteinContent96.5,RelativeTotalFiberContent13.,kidney beansRelativeTotalProteinContent56.,RelativeTotalFiberContent54.,chickpeasRelativeTotalProteinContent49.2,RelativeTotalFiberContent46.,pinto beansRelativeTotalProteinContent47.6,RelativeTotalFiberContent44.,cannellini beansRelativeTotalProteinContent53.8,RelativeTotalFiberContent46.,great Northern beansRelativeTotalProteinContent53.8,RelativeTotalFiberContent48.,Navy beansRelativeTotalProteinContent70.7,RelativeTotalFiberContent34.

Sort the data according to fiber content, and define the chart labels:

In[9]:=

beansDataSorted=SortBy[beansDataClean,#["RelativeTotalFiberContent"]&]chartLabels=StringTrim/@Map[StringDelete["beans"],Keys[beansDataSorted]]

Out[9]=

soy beansRelativeTotalProteinContent96.5,RelativeTotalFiberContent13.,cowpeasRelativeTotalProteinContent51.8,RelativeTotalFiberContent31.5,Navy beansRelativeTotalProteinContent70.7,RelativeTotalFiberContent34.,pinto beansRelativeTotalProteinContent47.6,RelativeTotalFiberContent44.,black beansRelativeTotalProteinContent53.8,RelativeTotalFiberContent46.,cannellini beansRelativeTotalProteinContent53.8,RelativeTotalFiberContent46.,chickpeasRelativeTotalProteinContent49.2,RelativeTotalFiberContent46.,great Northern beansRelativeTotalProteinContent53.8,RelativeTotalFiberContent48.,broad beansRelativeTotalProteinContent62.1,RelativeTotalFiberContent54.,kidney beansRelativeTotalProteinContent56.,RelativeTotalFiberContent54.,adzuki beansRelativeTotalProteinContent136.95,RelativeTotalFiberContent100.,lentilsRelativeTotalProteinContent250.,RelativeTotalFiberContent281.

Out[10]=

{soy,cowpeas,Navy,pinto,black,cannellini,chickpeas,great Northern,broad,kidney,adzuki,lentils}

Create a horizontal bar chart with a legend:

In[11]:=

BarChart[beansDataSorted,BarOriginLeft,ChartLabels{Placed[chartLabels,Before],None},ChartLegendsPlaced[{"Relative Protein","Relative Fiber"},{Below}],AxesLabel"mg/mg",ImageSize600]

Out[11]=

Relative Protein

Relative Fiber

Publisher Information

Contributed by: Tommy Peters and Gay Wilson

Wolfram Language Example Repository

Macronutrients in Sustainable Foods

See Also

Publisher Information