Легенда с составляющими молекулы 

Добавление легенды к трёхмерной модели молекулы кофеина.

In[1]:=

X caffeine = Show[ChemicalData["Caffeine", "MoleculePlot"], PlotLabel -> Style["Caffeine 3D Molecular Plot", 20], LabelStyle -> {GrayLevel[0.3], Bold}]

Out[237]=

Нахождение составляющих кофеина и создание легенды, используя соответствующие цвета.

In[2]:=

X elements = ChemicalData["Caffeine", "ElementTypes"]; elementLegend = SwatchLegend[ElementData[#, "IconColor"] & /@ elements, elements, LegendMarkerSize -> 20, LabelStyle -> {Bold, GrayLevel[0.3], 18}]

Out[2]=

Добавление легенды с составляющими к графику молекулы кофеина.

In[3]:=

X Legended[caffeine, elementLegend]

Out[241]=