I'm having trouble with "EdgeLayout" -> "StraightLine" in the GraphLayout of EdgeTaggedGraph.
Here's an example without the StraightLine option:
Remove[vsf];
vsf[width_][pos_, label_, _] :=
Inset[Framed[Pane[label, UpTo[width]], Background -> White], pos];
EdgeTaggedGraph[
Flatten[Table[{
Annotation[
Column[{"Vertex", v}] \[DirectedEdge]
Column[{"Vertex", Mod[v + 1, 4]}],
EdgeLabels -> Placed[(v + 0.1), {1/3, {0.5, 0.5}}]],
Annotation[
Column[{"Vertex", Mod[v + 1, 4]}] \[DirectedEdge]
Column[{"Vertex", v}],
EdgeLabels -> Placed[(v + 0.2), {1/2, {0.5, 0.5}}]],
Annotation[
Column[{"Vertex", v}] \[DirectedEdge]
Column[{"Vertex", Mod[v + 1, 4]}],
EdgeLabels -> Placed[(v + 0.3), {2/3, {0.5, 0.5}}]]},
{v, 0, 3}], 1],
BaseStyle -> {Arrowheads[0.04], Black},
PerformanceGoal -> "Quality",
VertexShapeFunction -> vsf[32],
AspectRatio -> 1,
GraphLayout -> {"VertexLayout" -> "LayeredEmbedding"},
ImageSize -> {3*72, Automatic}
]
Changing GraphLayout to
GraphLayout -> {"VertexLayout" -> "LayeredEmbedding",
"EdgeLayout" -> "StraightLine"}
Produces this result:
Is there a remedy for this?