Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 EssentialAminoAcidsChart

Source Notebook

Create a bar chart comparing the content of the nine essential amino acids in a list of foods

Contributed by: Gay Wilson

ResourceFunction["EssentialAminoAcidsChart"][foods]

returns essential amino acid information in a BarChart for a list of foods.

ResourceFunction["EssentialAminoAcidsChart"][foods,format]

returns essential amino acid information for a list of foods in a specified format.

Details and Options

There are nine amino acids that the human body cannot synthesize on its own to meet its physiological needs: histidine, isoleucine, leucine, lysine, methionine, phenylalanine, threonine, tryptophan and valine. These are the essential amino acids that must be supplied by protein in the diet.
Each bar represents the amount in grams of the corresponding amino acid relative to 1 gram of that food (g/g). Hover over a bar to view the numeric value.
ResourceFunction["EssentialAminoAcidsChart"] takes the same options as BarChart, with the following modifications:
ChartLabelsBeforefood names
ChartLegendsBelownutrient properties
BarOriginLeftorigin placement for bars
FontSize10font size of chart labels and legends
PlotLabel""optional overall label for chart
ImageSize600overall image size expressed in points
ChartLabelsBeforefood namesChartLegendsBelownutrient propertiesBarOriginLeftorigin placement for barsFontSize10font size of chart labels and legendsPlotLabel""optional overall label for chartImageSize600overall image size expressed in pointsAutomaticabsolute margins around imageBackgroundAutomaticbackground color for chartAutomaticabsolute margins around image
BackgroundAutomaticbackground color for chart
ResourceFunction["EssentialAminoAcidsChart"] supports the following format values:
"Dataset"Dataset of the essential amino acids content in the foods
"Data"associations of the foods and their essential amino acids content
"BarChart"(default) bar chart visualization
ResourceFunction["EssentialAminoAcidsChart"][expr] is equivalent to ResourceFunction["EssentialAminoAcidsChart"][expr,"BarChart"].

Examples

Basic Examples (2) 

Compare the essential amino acids in these fish, which also are good sources of omega-3 fatty acids:

In[1]:=
ResourceFunction[ "EssentialAminoAcidsChart"][{"trout", "anchovy", "mackerel", "salmon"}]
Out[1]=

Visualize the essential amino acids with a customized chart design:

In[2]:=
ResourceFunction[ "EssentialAminoAcidsChart"][{"trout", "anchovy", "mackerel", "salmon"}, BarOrigin -> Bottom, ChartLabels -> Below, ChartLegends -> Right, ChartStyle -> "DarkBands", PlotLabel -> "Comparison of Essential Amino Acids"]
Out[2]=

Scope (2) 

Display the essential amino acids data as a Dataset:

In[3]:=
ResourceFunction[ "EssentialAminoAcidsChart"][{"trout", "anchovy", "mackerel", "salmon"}, "Dataset"]
Out[3]=

Display the data as associations:

In[4]:=
ResourceFunction[ "EssentialAminoAcidsChart"][{"trout", "anchovy", "mackerel", "salmon"}, "Data"]
Out[4]=

Options (2) 

Use ChartElements and other BarChart options to draw attention to your chart:

In[5]:=
ResourceFunction["EssentialAminoAcidsChart"][{"walnuts"}, ChartElements -> \!\(\* GraphicsBox[DiskBox[{0, 0}], ImageSize->{22., Automatic}]\), ChartLabels -> Above, ChartStyle -> "BrightBands", Background -> LightYellow, ImageMargins -> 10, ImageSize -> Medium]
Out[5]=

Change FontSize for the chart labels and legend:

In[6]:=
ResourceFunction[ "EssentialAminoAcidsChart"][{"boiled eggs", "pork tenderloin", "feta cheese", "grilled chicken"}, FontSize -> 12, ChartElementFunction -> "ObliqueRectangle"]
Out[6]=

Neat Examples (2) 

Planning beans or lentils with rice for dinner? Pair different varieties to see the most nutritious combination of essential amino acids:

In[7]:=
(* Evaluate this cell to get the example input *) CloudGet["https://www.wolframcloud.com/obj/4f75c84c-22e1-4879-b7cd-f08df90f70da"]
Out[8]=

Write a custom ChartElementFunction for a unique and artistic visualization:

In[9]:=
g[{{xmin_, xmax_}, {ymin_, ymax_}}, ___] := Polygon[{{xmin, ymin}, {xmax, ymax}, {xmin, ymax}, {xmax, ymin}}] ResourceFunction["EssentialAminoAcidsChart"][{"cottage cheese"}, ChartElementFunction -> g, BarOrigin -> Bottom, ChartLabels -> Above, ChartLegends -> Right, ChartStyle -> "BlueGreenYellow"]
Out[10]=

Requirements

Wolfram Language 13.0 (December 2021) or above

Version History

  • 1.2.0 – 29 April 2026
  • 1.1.0 – 15 May 2024
  • 1.0.0 – 25 March 2024

Related Resources

License Information