WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

1つのグラフのオプションを別のグラフに適用する

特定のレイアウトのグラフを定義する：
Wolfram Language code: g = Graph[Table[j -> FromDigits[Drop[IntegerDigits[j, 2], 1], 2] + 1, {j, 2, 2 ^ 5 - 1}], PlotTheme -> "ThickEdge", GraphLayout -> "RadialEmbedding"]
頂点間の辺を再定義するが，頂点座標はもとのものと同じに保つ：
Wolfram Language code: rg = RandomGraph[{31, 70}, VertexStyle -> Red, AbsoluteOptions[g, VertexCoordinates]]
頂点座標が同じであることを視覚的に確かめる：
Wolfram Language code: Show[g, rg]