Post Undeleted by Nasser
    Post Deleted by Nasser
4 added 83 characters in body
source | link
SetDirectory[NotebookDirectory[]];
img Framed@LayeredGraphPlot[= Import["a.png"];

g = LayeredGraphPlot[{{"a" -> "b", 3},
       {"a" -> "e", 5}, {"a" -> "c", 6}, {"a" -> "d", 
     4}, {"b" -> "c",
     4}, { "b" -> "e", 5}, {"b" -> "d", 
     6}, {"c" -> "e", 7}, { 
    "c" -> "d", 8}}, 
   PlotStyle -> {Opacity[.5], Gray}, 
   BaseStyle -> {Bold, FontSize -> 24}, VertexLabeling -> True, 
   VertexRenderingFunction -> (Inset[
      Framed[Style[#2Inset[Framed[Style[#2, 22], Background -> White, 
       FrameStyle -> Gray], #1, {Center, Top}] &), 
  DirectedEdges -> False, 
      PlotRangePadding -> Automatic,ImageSize -> 450];

Grid[{{img, g}}, ImageSizeFrame -> 450]All]

Mathematica graphicsMathematica graphics

 Framed@LayeredGraphPlot[{{"a" -> "b", 3},
       {"a" -> "e", 5}, {"a" -> "c", 6}, {"a" -> "d", 4}, {"b" -> "c",
     4}, { "b" -> "e", 5}, {"b" -> "d", 6}, {"c" -> "e", 7}, { 
    "c" -> "d", 8}}, PlotStyle -> {Opacity[.5], Gray}, 
  BaseStyle -> {Bold, FontSize -> 24}, VertexLabeling -> True, 
  VertexRenderingFunction -> (Inset[
      Framed[Style[#2, 22], Background -> White, 
       FrameStyle -> Gray], #1, {Center, Top}] &), 
  DirectedEdges -> False, PlotRangePadding -> Automatic, 
  ImageSize -> 450]

Mathematica graphics

SetDirectory[NotebookDirectory[]];
img = Import["a.png"];

g = LayeredGraphPlot[{{"a" -> "b", 3}, {"a" -> "e", 5}, {"a" -> "c", 6}, {"a" -> "d", 
     4}, {"b" -> "c", 4}, { "b" -> "e", 5}, {"b" -> "d", 
     6}, {"c" -> "e", 7}, { "c" -> "d", 8}}, 
   PlotStyle -> {Opacity[.5], Gray}, 
   BaseStyle -> {Bold, FontSize -> 24}, VertexLabeling -> True, 
   VertexRenderingFunction -> (Inset[Framed[Style[#2, 22], Background -> White,
      FrameStyle -> Gray], #1, {Center, Top}] &), DirectedEdges -> False, 
      PlotRangePadding -> Automatic,ImageSize -> 450];

Grid[{{img, g}}, Frame -> All]

Mathematica graphics

3 added 45 characters in body
source | link
 Framed@LayeredGraphPlot[{{"a" -> "b", 3},
       {"a" -> "e", 5}, {"a" -> "c", 6}, {"a" -> "d", 4}, {"b" -> "c",
     4}, { "b" -> "e", 5}, {"b" -> "d", 6}, {"c" -> "e", 7}, { 
    "c" -> "d", 8}}, PlotStyle -> {DashedOpacity[.5], Gray}, 
  BaseStyle -> {Bold, FontSize -> 24}, VertexLabeling -> True, 
  VertexRenderingFunction -> (Inset[
      Framed[Style[#2, 22], Background -> White, 
       FrameStyle -> Gray], #1, {Center, Top}] &), 
  DirectedEdges -> False, PlotRangePadding -> Automatic, 
  ImageSize -> 400]450]

Mathematica graphicsMathematica graphics

 Framed@LayeredGraphPlot[{{"a" -> "b", 3},
       {"a" -> "e", 5}, {"a" -> "c", 6}, {"a" -> "d", 4}, {"b" -> "c",
     4}, { "b" -> "e", 5}, {"b" -> "d", 6}, {"c" -> "e", 7}, { 
    "c" -> "d", 8}}, PlotStyle -> {Dashed, Gray}, 
  BaseStyle -> {FontSize -> 24}, VertexLabeling -> True, 
  VertexRenderingFunction -> (Inset[
      Framed[Style[#2, 22], Background -> White, 
       FrameStyle -> Gray], #1, {Center, Top}] &), 
  DirectedEdges -> False, PlotRangePadding -> Automatic, 
  ImageSize -> 400]

Mathematica graphics

 Framed@LayeredGraphPlot[{{"a" -> "b", 3},
       {"a" -> "e", 5}, {"a" -> "c", 6}, {"a" -> "d", 4}, {"b" -> "c",
     4}, { "b" -> "e", 5}, {"b" -> "d", 6}, {"c" -> "e", 7}, { 
    "c" -> "d", 8}}, PlotStyle -> {Opacity[.5], Gray}, 
  BaseStyle -> {Bold, FontSize -> 24}, VertexLabeling -> True, 
  VertexRenderingFunction -> (Inset[
      Framed[Style[#2, 22], Background -> White, 
       FrameStyle -> Gray], #1, {Center, Top}] &), 
  DirectedEdges -> False, PlotRangePadding -> Automatic, 
  ImageSize -> 450]

Mathematica graphics

2 added 45 characters in body
source | link
 Framed@LayeredGraphPlot[{{"a" -> "b", 3},
       {"a" -> "e", 5}, {"a" -> "c", 6}, {"a" -> "d", 4}, {"b" -> "c",
     4}, { "b" -> "e", 5}, {"b" -> "d", 6}, {"c" -> "e", 7}, { 
    "c" -> "d", 8}}, PlotStyle -> {Dashed, Gray}, 
  BaseStyle -> {FontSize -> 24}, VertexLabeling -> True, 
  VertexRenderingFunction -> (Inset[
      Framed[Style[#2, 14]22], Background -> White, 
       FrameStyle -> Gray], #1, {Center, Top}] &), 
  DirectedEdges -> False, PlotRangePadding -> Automatic, 
  ImageSize -> 400]

Mathematica graphicsMathematica graphics

 Framed@LayeredGraphPlot[{{"a" -> "b", 3},
       {"a" -> "e", 5}, {"a" -> "c", 6}, {"a" -> "d", 4}, {"b" -> "c",
     4}, { "b" -> "e", 5}, {"b" -> "d", 6}, {"c" -> "e", 7}, { 
    "c" -> "d", 8}}, VertexLabeling -> True, 
  VertexRenderingFunction -> (Inset[
      Framed[Style[#2, 14], Background -> White, 
       FrameStyle -> Gray], #1, {Center, Top}] &), 
  DirectedEdges -> False, PlotRangePadding -> Automatic, 
  ImageSize -> 400]

Mathematica graphics

 Framed@LayeredGraphPlot[{{"a" -> "b", 3},
       {"a" -> "e", 5}, {"a" -> "c", 6}, {"a" -> "d", 4}, {"b" -> "c",
     4}, { "b" -> "e", 5}, {"b" -> "d", 6}, {"c" -> "e", 7}, { 
    "c" -> "d", 8}}, PlotStyle -> {Dashed, Gray}, 
  BaseStyle -> {FontSize -> 24}, VertexLabeling -> True, 
  VertexRenderingFunction -> (Inset[
      Framed[Style[#2, 22], Background -> White, 
       FrameStyle -> Gray], #1, {Center, Top}] &), 
  DirectedEdges -> False, PlotRangePadding -> Automatic, 
  ImageSize -> 400]

Mathematica graphics

1
source | link