Graph[myEdgesGraph[ myEdges,
VertexLabels ->
{vv_ : Alternatives @@> sourcesWith[{vid :>= Placed[myVertexNames[[v]]VertexInDegree[myEdges, Beforev]},
Placed[myVertexNames[[v]], vid Framed[#,/. Background{0 -> RedBefore, FrameStyle_ -> None] &]After},
v : Alternatives
@@ sinks :> Placed[myVertexNames[[v]], AfterFramed[#,
Background -> (vid /. {0 -> Framed[#Red, Background_ -> Yellow}), FrameStyle -> None] &]&]]},
VertexShapeFunction -> None, VertexSize -> 0,
GraphLayout -> {"LayeredDigraphEmbedding", "Orientation" -> Left}]
Graph[myEdges,
VertexLabels ->
{v : Alternatives @@ sources :> Placed[myVertexNames[[v]], Before,
Placed[myVertexNames[[v]], Before, Panel[# Framed[#, Background -> Red]Red, FrameStyle -> None] &],
v : Alternatives @@ sinks :> Placed[myVertexNames[[v]], After,
Placed[myVertexNames[[v]], After, Panel[# Framed[#, Background -> Yellow]Yellow, FrameStyle -> None] &]},
VertexShapeFunction -> None, VertexSize -> 0,
GraphLayout -> {"LayeredDigraphEmbedding", "Orientation" -> Left}]
Graph[myEdges,
VertexLabels -> {v : Alternatives @@ sources :>
Placed[myVertexNames[[v]], Before, Panel[#, Background -> Red] &],
v : Alternatives @@ sinks :>
Placed[myVertexNames[[v]], After, Panel[#, Background -> Yellow] &]},
VertexShapeFunction -> None, VertexSize -> 0,
GraphLayout -> {"LayeredDigraphEmbedding", "Orientation" -> Left}]
Graph[myEdges, VertexLabels ->
{v : Alternatives @@ sources :> Placed[myVertexNames[[v]], Before,
Framed[#, Background -> Red, FrameStyle -> None] &],
v : Alternatives @@ sinks :> Placed[myVertexNames[[v]], After,
Framed[#, Background -> Yellow, FrameStyle -> None] &]},
VertexShapeFunction -> None, VertexSize -> 0,
GraphLayout -> {"LayeredDigraphEmbedding", "Orientation" -> Left}]
Update 3: Yet another alternative:
Graph[myEdges,
VertexLabels -> {v : Alternatives @@ sources :>
Placed[myVertexNames[[v]], Before, Panel[#, Background -> Red] &],
v : Alternatives @@ sinks :>
Placed[myVertexNames[[v]], After, Panel[#, Background -> Yellow] &]},
VertexShapeFunction -> None, VertexSize -> 0,
GraphLayout -> {"LayeredDigraphEmbedding", "Orientation" -> Left}]
Update 2: An alternative VertexShapeFunction
Update 2: An alternative VertexShapeFunction
Update 3: Yet another alternative:
Graph[myEdges,
VertexLabels -> {v : Alternatives @@ sources :>
Placed[myVertexNames[[v]], Before, Panel[#, Background -> Red] &],
v : Alternatives @@ sinks :>
Placed[myVertexNames[[v]], After, Panel[#, Background -> Yellow] &]},
VertexShapeFunction -> None, VertexSize -> 0,
GraphLayout -> {"LayeredDigraphEmbedding", "Orientation" -> Left}]
Update 2: An alternative VertexShapeFunction