WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター
分子内の元素に凡例を付ける

分子内の元素に凡例を付ける

カフェインの3D分子モデルに凡例を加える．

Wolfram Language code: caffeine = Show[ChemicalData["Caffeine", "MoleculePlot"], PlotLabel -> Style["カフェインの3D分子プロット", 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]