Build a Network of Ingredient Substitutions

Find substitutes for different ingredients and create a graph of weakly connected components

Find a substitution, with explicit proportions, for allspice:

In[1]:=

allspice

FOOD TYPE

["PossibleIngredientSubstitutions"]

Out[1]=

Show the same substitution using ratios instead:

In[2]:=

subs=

allspice

FOOD TYPE



possible ingredient substitution ratios

//

Flatten

Out[2]=



food

EntityGroupEntityInstance

food

40.

vol%

,EntityInstance

food

40.

vol%

,EntityInstance

food

vol%



Display the substitution with images:

In[3]:=

subsShow[lhs:_Entity|_EntityInstance,EntityGroup[rhs:{__EntityInstance}]]:=Modulereplacements=RiffleRowFramedRow#2,

,First[DeleteMissing@Cases[#1,ft:Entity["FoodType",_]ft["Image"],Infinity],#1],

,

...

&@@@rhs,

,GridFirst[DeleteMissing@Cases[#,ft:Entity["FoodType",_]ft["Image"],Infinity],#]&@lhs,

,Rowreplacements,

...

,

...

/.

...

;

In[4]:=

subsShow@@@subs//Row

Out[4]=

food

40.

vol%

40.

vol%

Repeat the process to find and display a list of substitutes for arugula:

In[5]:=

subs2=

arugula

FOOD TYPE



possible ingredient substitution ratios

//

Flatten

;subsShow@@@subs2//Column

Out[5]=

100.

vol%

100.

vol%

100.

vol%

Create a network of food types that are connected by ingredient substitutions:

In[6]:=

substitutions=EntityValue["FoodType","PossibleIngredientSubstitutionFoodTypes","EntityAssociation"]//

delete missing

;

Show a sample list of substitutions:

In[7]:=

RandomSample[substitutions,5]

Out[7]=



bleude gex cheese



stilton cheese

arrowroot



tapioca

açai berry



blueberry

cashew



peanut

chili



chili pepper



Show substitutions as graphs, using substitutions as edges of the graph:

In[8]:=

Graph[substitutions]

Out[8]=

Take the weakly connected components of the graph:

In[9]:=

g=First@WeaklyConnectedGraphComponents@Graph[substitutions]

Out[9]=

Group the substitutions in the network into communities of different food groups:

In[10]:=

communities=AssociationMapFirstKeys[MaximalBy[Counts[Flatten@EntityValue[#,"FoodTypeGroups"]],1]],IfMemberQ#,

butter

FOOD TYPE

,"fats",

cheeses

FOOD TYPE GROUP

&,FindGraphCommunities[g];

In[11]:=

communities//Take[#,2]&

Out[11]=



cheese

asadero cheese

asiago cheese

brie cheese

camembert cheese

charkassiye cheese

cheddar cheese

cheshire cheese

chevre cheese

colby cheese

cotija cheese

cream cheese

double gloucester cheese

feta cheese

haloumi cheese

lancashire cheese

leicester cheese

monterey jack cheese

myzithra cheese

ricotta salata cheese

wensleydale cheese

mozzarella cheese

grana padano cheese

parmesan cheese

pecorino romano cheese

bleude bresse cheese

boursault cheese

caprice des dieux cheese

cambozola cheese

caerphilly cheese

cantal cheese

mascarpone cheese

caciotta cheese

castelmagno cheese

bel paese cheese

burrata cheese

gorgonzola cheese

laguiole cheese

fontina cheese

pecorino cheese

manouri cheese

gouda cheese

meunster cheese

muenster cheese



cheeses

,

cherimoya

cherry

nectarine

peach

atemoya

canistel

guanábana

mango

papaya

sugar apple

açai berry

acerola

blueberry

chokecherry

cranberry

currant

plum

raisin

cantaloupe

persimmon

sapodilla

rose hip

bilberry

huckleberry

natal plum

cashew apple

melon

gooseberry

karanda

,Entity[FoodType,BalsamPear],

starfruit

kiwifruit

orange



fruits



Group the communities labeled by the same food type:

In[12]:=

groups=communities//GroupBy[#,Identity,Keys/*Flatten/*Union]&;

Label each community with the food type:

In[13]:=

communitiesLabeled=KeyValueMap[Labeled[#1,Style[#2,9]]&,AssociationMap[Reverse,groups]];

Use

CommunityGraphPlot

to show the communities with labeled graph:

Publisher Information

Contributed by: Wolfram Staff

Wolfram Language Example Repository

Build a Network of Ingredient Substitutions

See Also

Publisher Information

Build a Network of Ingredient Substitutions

See Also

Related Symbols

Publisher Information