EntityValue
Entity
EntityClass
WordCloud
ColorDetect

Graphics

Build a Word Cloud of Food Groups

Create a word cloud of basic food groups inspired by the USDA's MyPlate logo

Open in Cloud
Download Notebook

Obtain an image of USDA's style guide for the MyPlate Logo::

In[1]:=

ResourceData["Example""Build a Word Cloud of Food Groups","Image"]

Out[1]=

Create a list of basic food groups in the logo:

In[2]:=

groups=

dairy

BASIC FOOD GROUP

grains

BASIC FOOD GROUP

protein foods

BASIC FOOD GROUP

vegetables

BASIC FOOD GROUP

fruits

BASIC FOOD GROUP

;

Find a list of the most common food types for each basic food group and show a few samples:

In[3]:=

foodTypes=EntityValue[groups,"FoodTypes","EntityAssociation"];commonFoods=ReverseSort/@(EntityValue[#,"FoodCount","EntityAssociation"]&/@foodTypes);Take[#,3]&/@commonFoods

Out[3]=



dairy



ice cream

3695,

milk

3147,

yogurt

2736,

grains



wheat

2236,

rice

1567,

cereal

1512,

protein foods



beef

4432,

chicken

2367,

pork

2012,

vegetables



bean

2236,

tomato

1696,

salsa

1557,

fruits



juice

3841,

fruit

1241,

applesauce

923

Get the plain vector graphics logo of USDA's MyPlate:

In[4]:=

g=ResourceData["Example""Build a Word Cloud of Food Groups","Graphics"]

Out[4]=

Assign colors from the logo to each food group:

In[5]:=

groupColors=

dairy

BASIC FOOD GROUP



grains

BASIC FOOD GROUP



protein foods

BASIC FOOD GROUP



vegetables

BASIC FOOD GROUP



fruits

BASIC FOOD GROUP



;

Find a masks corresponding to each food group in the logo:

In[6]:=

masks=Binarize[ColorDetect[g,ColorsNear[#,.01]]]&/@groupColors

Out[6]=



dairy



grains



protein foods



vegetables



fruits





Create a word cloud of food types in each group covering the corresponding mask:

In[7]:=

clouds=Quiet@Table[WordCloud[KeyMap[#["Name"]&,commonFoods[group]],masks[group],ColorFunctiongroupColors[group],WordSpacings4,ImageSizeSmall],{group,groups}]

Out[7]=

