WOLFRAM

Wolfram 语言与系统参考资料中心
分子中元素的图例

分子中元素的图例

为咖啡因分子的三维模型添加图例.

Wolfram Language code: caffeine = Show[ChemicalData["Caffeine", "MoleculePlot"], PlotLabel -> Style["Caffeine 3D Molecular Plot", 20], LabelStyle -> {GrayLevel[0.3], Bold}]
查找咖啡因的组成元素，并创建与该元素标志性颜色一致的图例：
Wolfram Language code: elements = ChemicalData["Caffeine", "ElementTypes"]; elementLegend = SwatchLegend[ElementData[#, "IconColor"]& /@ elements, elements, LegendMarkerSize -> 20, LabelStyle -> {Bold, GrayLevel[0.3], 18}]
将元素图例添加至咖啡因分子图中：
Wolfram Language code: Legended[caffeine, elementLegend]