Revisions to Graph equivalent of GraphPlot's MultiEdge style?

added 14 characters in body

Source Link

edited Feb 6, 2018 at 7:45

400.5k
18
488
929

if {a,b} and {b,a} are edges, I would like one line between them that has two arrowheads

ClearAll[modiFy]
modiFymodiFy[as_ =: Graph[DeleteDuplicates[EdgeList{-.05, @.05}] #:= Graph[DeleteDuplicates[EdgeList@#, Sort @ # == Sort @ #2 &], 
 EdgeStyle -> {e : DirectedEdge[a_, b_] /; a =!= b && MemberQ[EdgeList@#, Reverse @ e] :> 
   Arrowheads[{-.05, .05}]Arrowheads[as]}, VertexCoordinates -> GraphEmbedding[#], Options @ #]&

Examples:

g1 = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}]

modiFymodiFy[] @ g1

modiFy[{-.08, .05}] @ g1

g2 = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}, ImageSize -> 400,
  EdgeLabels -> Placed["Name", 1/3], ImagePadding -> 20,  VertexLabels -> "Name"]

modiFymodiFy[] @ g2

if {a,b} and {b,a} are edges, I would like one line between them that has two arrowheads

ClearAll[modiFy]
modiFy = Graph[DeleteDuplicates[EdgeList @ #, Sort @ # == Sort @ #2 &], 
 EdgeStyle -> {e : DirectedEdge[a_, b_] /; a =!= b && MemberQ[EdgeList@#, Reverse @ e] :> 
   Arrowheads[{-.05, .05}]}, VertexCoordinates -> GraphEmbedding[#], Options @ #]&

Examples:

g1 = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}]

modiFy @ g1

g2 = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}, ImageSize -> 400,
  EdgeLabels -> Placed["Name", 1/3], ImagePadding -> 20,  VertexLabels -> "Name"]

modiFy @ g2

if {a,b} and {b,a} are edges, I would like one line between them that has two arrowheads

ClearAll[modiFy]
modiFy[as_ : {-.05, .05}] := Graph[DeleteDuplicates[EdgeList@#, Sort @ # == Sort @ #2 &], 
 EdgeStyle -> {e : DirectedEdge[a_, b_] /; a =!= b && MemberQ[EdgeList@#, Reverse @ e] :> 
   Arrowheads[as]}, VertexCoordinates -> GraphEmbedding[#], Options @ #]&

Examples:

g1 = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}]

modiFy[] @ g1

modiFy[{-.08, .05}] @ g1

g2 = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}, ImageSize -> 400,
  EdgeLabels -> Placed["Name", 1/3], ImagePadding -> 20,  VertexLabels -> "Name"]

modiFy[] @ g2

added 368 characters in body

Source Link

edited Feb 5, 2018 at 10:26

kglr

400.5k
18
488
929

if {a,b} and {b,a} are edges, I would like one line between them that has two arrowheads

ClearAll[modiFy]
modiFy = Graph[DeleteDuplicates[EdgeList @ #, Sort @ # == Sort @ #2 &], 
 EdgeStyle -> {e : DirectedEdge[a_, b_] /; a =!= b && MemberQ[EdgeList@#, Reverse @ e] :> 
   Arrowheads[{-.05, .05}]}, VertexCoordinates -> GraphEmbedding[#], Options @ #]&

You can use the option EdgeStyle after removing duplicate (up to direction) edges:Examples:

gg1 = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}]

Graph[DeleteDuplicates[EdgeList[g],modiFy Sort@#@ ==g1

g2 Sort@#2= &]Graph[{1 -> 2, 
 2 EdgeStyle-> 1, 3 -> {e1, :3 DirectedEdge[a_-> 2, b_]4 /;-> a1, =!=4 b-> &&2, MemberQ[EdgeList[g]4 -> 4}, Reverse@e]ImageSize :-> 400,
   EdgeLabels Arrowheads[{-.05> Placed["Name", .05}]}1/3], VertexCoordinatesImagePadding -> GraphEmbedding[g]]20,  VertexLabels -> "Name"]

modiFy @ g2

You can use the option EdgeStyle after removing duplicate (up to direction) edges:

g = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}]

Graph[DeleteDuplicates[EdgeList[g], Sort@# == Sort@#2 &], 
  EdgeStyle -> {e : DirectedEdge[a_, b_] /; a =!= b && MemberQ[EdgeList[g], Reverse@e] :> 
    Arrowheads[{-.05, .05}]}, VertexCoordinates -> GraphEmbedding[g]]

if {a,b} and {b,a} are edges, I would like one line between them that has two arrowheads

ClearAll[modiFy]
modiFy = Graph[DeleteDuplicates[EdgeList @ #, Sort @ # == Sort @ #2 &], 
 EdgeStyle -> {e : DirectedEdge[a_, b_] /; a =!= b && MemberQ[EdgeList@#, Reverse @ e] :> 
   Arrowheads[{-.05, .05}]}, VertexCoordinates -> GraphEmbedding[#], Options @ #]&

Examples:

g1 = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}]

modiFy @ g1

g2 = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}, ImageSize -> 400,
  EdgeLabels -> Placed["Name", 1/3], ImagePadding -> 20,  VertexLabels -> "Name"]

modiFy @ g2

Source Link

created Feb 5, 2018 at 10:11

kglr

400.5k
18
488
929

You can use the option EdgeStyle after removing duplicate (up to direction) edges:

g = Graph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2, 4 -> 4}]

Graph[DeleteDuplicates[EdgeList[g], Sort@# == Sort@#2 &], 
 EdgeStyle -> {e : DirectedEdge[a_, b_] /; a =!= b && MemberQ[EdgeList[g], Reverse@e] :> 
    Arrowheads[{-.05, .05}]}, VertexCoordinates -> GraphEmbedding[g]]

Stack Exchange Network

Return to Answer