wolfram-mathematica - 如何使用Mathematica绘制经典的状态图？

Question

Mathematica 绘制这样的东西是否可能且实用(由 Graphviz 创建):

这是我能得到的最好的了(但形状和风格都不满意):

代码:

GraphPlot[{{A -> C, "go"}, {C -> B, "gone"}, {C -> D, 
   "went"}, {C -> C, "loop"}}, VertexLabeling -> True, 
 DirectedEdges -> True]

Answer 1

您可以使用VertexRenderingFunction执行类似的操作。

GraphPlot[{{A -> C, "go"}, {C -> B, "gone"}, {C -> D, "went"}, {C -> C, "loop"}}, 
 DirectedEdges -> True, 
 VertexRenderingFunction -> ({{White, Disk[#, 0.15]}, 
     AbsoluteThickness[2], Circle[#, 0.15], 
     If[MatchQ[#2, A | B], Circle[#, 0.12], {}], Text[#2, #]} &)]

<小时/>

方法于 2015 年 2 月更新

为了保留使用绘图工具(双击)以交互方式重新排列图形的能力，必须将顶点图形保留在 GraphicsComplex 中，并使用索引而不是坐标。我相信人们可以使用递增变量从 VertexRenderingFunction 来做到这一点，但通过后处理来做到这一点似乎更容易，也可能更稳健。这适用于 Mathematica 版本 7 和 10，大概也适用于 8 和 9:

GraphPlot[
  {{A -> C, "go"}, {C -> B, "gone"}, {C -> D, "went"}, {C -> C, "loop"}},
  DirectedEdges -> True
] /.
 Tooltip[Point[n_Integer], label_] :>
   {{White, Disk[n, 0.15]},
    Black, AbsoluteThickness[2], Circle[n, 0.15], 
    If[MatchQ[label, A | B], Circle[n, 0.12], {}], Text[label, n]}