How to | 2つ以上のグラフィックスを組み合せる方法
Wolfram言語でグラフィックスを使用する場合,複数のグラフィックスを単一の画像にまとめたいことがある.Wolfram言語では,オーバーレイしたり,異なる順序で一緒に埋め込んだりすることによってグラフィックスを組み合せることができる.
グラフィックスを組み合せる方法として最もよく使われる方法の1つにShowを使う方法がある.
組合せに使用するグラフィックスをいくつか設定する.この例ではグラフィックスをそれぞれp1,p2,p3,p4として保存する:
p1 = Plot[x Sin[x] - 1, {x, -2.5, 2.5}]p2 = Plot[Evaluate[D[x Sin[x] - 1, x]], {x, -2.5, 2.5}, PlotStyle -> Red]p3 = Plot[Sin[x], {x, -2.5, 2.5}, PlotStyle -> Magenta]p4 = Graphics[{Magenta, Polygon[{{0.4, 0}, {0, 0.5}, {-0.4, 0}}]}]Showを使ってグラフィックスをオーバーレイする:
Show[p1, p2, p3, p4]PlotRange->Allを使ってプロット範囲全体を表示する:
Show[p1, p2, p3, p4, PlotRange -> All]グラフィックスは,オーバーレイさせるだけでなく,行,格子,あるいは列に一緒に並べたりすることもできる.
GraphicsRowを使ってグラフィックスを1行に並べる:
GraphicsRow[{p1, p2, p3, p4}]GraphicsGridを使ってグラフィックスを格子に入れる:
GraphicsGrid[{{p1, p2}, {p3, p4}}]GraphicsColumnを使ってグラフィックスを1列に並べる:
GraphicsColumn[{p1, p2, p3, p4}]グラフィックスオプションであるEpilogおよびPrologを使ってもグラフィックスを組み合せることができる.これらのオプションはグラフィックスを一緒に埋め込むが,埋め込む順序が異なる.
Epilogはグラフィックスを別のグラフィックスの上に埋め込む.
EpilogをGraphics内のオプションとして使い,点を線の上に埋め込む:
Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Epilog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]Prologはグラフィックスを別のグラフィックスの後ろに埋め込む.
PrologをGraphicsのオプションとして使い,直線の後ろに点を埋め込む:
Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Prolog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]ShowおよびEpilogは3Dグラフィックスと一緒に使うこともできる.
2つの3Dグラフィックスを作成し,それをShowを使って組み合せる:
sp = Graphics3D[Sphere[{0, 0, 0}, 0.8], Boxed -> False]pp3 = ParametricPlot3D[{(2 + Cos[v])Cos[u], (2 + Cos[v])Sin[u], Sin[v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, Axes -> None, Boxed -> False]Show[sp, pp3]Epilogを使って2Dグラフィックスを3Dグラフィックスの中に埋め込むこともできる.
EpilogをSphericalPlot3D内のオプションとして使い,3Dグラフィックスに透かし模様を加える:
watermark = Style["Done", 36, Bold, Opacity[.6]]SphericalPlot3D[ϕ, {θ, 0, Pi}, {ϕ, 0, 3Pi}, Boxed -> False, Axes -> None, Epilog -> Inset[watermark, Automatic, Automatic, Automatic, {1, 1}]]