wolfram-mathematica - Web 结构可视化中的 EdgeLabels

Question

我一直在玩弄 Mathematica 的可视化和网络爬虫功能。在一些演示代码的基础上，我能够将网络可视化。这是大学网页上的示例:

webcrawler[rooturl_, depth_] :=
  Flatten[Rest[NestList[
       Union[Flatten[Thread[# -> Import[#,"Hyperlinks"]] & /@ Last /@ #]] &, 
       {"" -> rooturl}, depth]]];

Graph[webcrawler[
  "http://www.yorku.ca/", 2], {ImageSize -> Full}]

但是，我一直在努力想办法将 EdgeLabels[] 应用到这个 Graph[] 命令，但没有结果。我希望将每个链接写在每一行上，只是为了了解链接簇的确切含义。

我已经尝试将生成的超链接连接列表应用于它，但它不起作用，并且文档/堆栈/食谱上的其他地方的任何显而易见的命令也没有。

我设想一个非常困惑的输出。

Answer 1

我不知道在大图的情况下边缘标签会是什么样子。但是在这里如何在 Mathematica 8 中完成它。

webcrawler[rooturl_, depth_] := 
Flatten[Rest[
NestList[
 Union[Flatten[
    Thread[# -> Import[#, "Hyperlinks"]] & /@ 
     Last /@ #]] &, {"" -> rooturl}, depth]]];
dats = webcrawler["http://www.uni-kl.de/", 2];
Graph[dats ,EdgeLabels ->Table[dats[[i]] -> dats[[i]][[2]],
{i,Length[dats]}], {ImageSize -> Full}]

我希望这有帮助。

BR