I make this plot:
myVertexes = {"Criminals", "cat", "dog", "human", "killer", "thug",
"macho"}; myVertexLabels =
Table[myVertexes[[i]] ->
Placed[Rotate[
Panel[myVertexes[[i]],
Background ->
If[AnyTrue[{"Criminals", "human",
"macho"}, # == myVertexes[[i]] &], Orange, Yellow]], -\[Pi]/
2], Center], {i, Length[myVertexes]}];
myEdgeShape[el_, ___] := Arrow[el, 0.2]; CriminalTree =
TreeGraph[{"Criminals" -> "cat", "Criminals" -> "dog",
Style["Criminals" -> "human", Thick, Orange], "human" -> "killer",
"human" -> "thug", Style["human" -> "macho", Thick, Orange]},
DirectedEdges -> True, EdgeShapeFunction -> myEdgeShape,
VertexLabels -> myVertexLabels]; Rotate[
Image[CriminalTree], \[Pi]/2]
When I copy and paste it to Paint or Word is inverted
Why LOL ?