带有EdgeLabels的Mathematica + GraphPlot + GraphicsGrid

Question

我对GraphicsGrid有一些非常奇怪的问题。 个人PraphPlot：s看起来不错，但代码 GraphicsGrid[{{GraphPlot[{{a -> b, "ab"}, {a -> c, "7"}}]}, {GraphPlot[{{a -> b, "5"}, {a -> c, "2"}}]}}] 只生产2个大块的垃圾。如果我删除边缘标签，一切都按预期工作。我正在使用Mathematica 7.0.0。

Answer 1

我和你一样，虽然我已经把它们称为小垃圾。我摆弄了几分钟，得到了这个：

g1 = GraphPlot[{{a -> b, "ab"}, {a -> c, "7"}}];
g2 = GraphPlot[{{a -> b, "5"}, {a -> c, "2"}}];
Grid[{{g1}, {g2}}]

这有点不同但可能有些用处。现在要回去工作了。

Answer 2

就我个人而言，我讨厌使用GraphicsGrid，因为我发现其结果无法预测。正如你对@High Performance Mark的回答一样，这篇文章将被包含在论文（即LaTeX）中，我建议使用Mark Caprio的LevelScheme package。他花了很多时间搞清楚如何在Mathematica中布置图形，并且它允许你使用Mathematica默认不做的刻度标记做出理智的事情。它不是世界上最快的包，需要一些学习，但我强烈推荐它。