Using different colors in TreeForm?

Question

I've used TreeForm, and I appreciate that the syntax is fairly short, especially in comparison with TreeGraph.

Is it possible specify a different colors in TreePlot for coloring a section of the nodes and the paths to those nodes?

score 10 · Answer 1 · answered Nov 27 '14 at 14:33

10

Anyway, Treegraph offers a lot of flexibility:

nodes = {RandomInteger[#] , # + 1} & /@ Range[0, 30];
rn = Range@Length@nodes;
crules = Rule @@@ Partition[Riffle[rn, ColorData[15, "ColorList"]], 2];
g = TreeGraph[UndirectedEdge @@@ nodes, VertexSize -> 0.4,  VertexStyle -> crules];
HighlightGraph[g, PathGraph@FindShortestPath[g, 1, 30], GraphHighlightStyle -> "Dashed"]

Mathematica graphics

Terse code is nice, flexibility is wonderful.

answered Nov 27 '14 at 14:33

Dr. belisarius

115,881
13
203
453

it has one major drawback that u cannot have children of a node who is children of another node – TraceKira Nov 27 '14 at 14:35
i put a link in my original comment – TraceKira Nov 27 '14 at 14:37
TreeGraph[] supports all possible operations on Graphs- – Dr. belisarius Nov 27 '14 at 14:37
1

@timoftebogdan TreeGraph[] is much more flexible than TreePlot[] and TreeForm[] for this kind of things. I told you before, but you don't like it :). See my comment under your previous question – Dr. belisarius Nov 27 '14 at 14:41
I already told you that i need as children to a node a node that is children to another node , aka duplicates. This is not possible with TreeGraph and i find Mathematica package useless to be honest because this simple feature missing...dissapointed – TraceKira Nov 27 '14 at 14:45
4

@timoftebogdan Oh, I see. You're confounding the Vertex name with the Vertex Label ! – Dr. belisarius Nov 27 '14 at 14:55
TreePlot seems to accept anything as a node (number, string, etc.), whereas TreeGraph seems to require a number. – iwantmyphd Jan 22 '15 at 00:41

Pegasus Roe · Accepted Answer · 2016-02-06T07:00:59.113

4

framedWithColor[color_] := Function[{position, label},
  {Text[Framed[label, Background -> color], position]}
];

TreeForm[
  {{1, 2}, {3, 4}},
  VertexRenderingFunction -> framedWithColor[Pink]
]

edited Feb 06 '16 at 07:00

answered Feb 06 '16 at 06:43

Pegasus Roe

66
3

berniethejet · Answer 3 · 2020-07-02T13:47:44.337

0

The terminal nodes of TreeForm are apparently all wrapped in an insidious HoldForm such that one cannot easily give them separate colors.

That is:

ii = 0; 
TreeForm[Nest[{#, ++ii} &, ii, 3],
  VertexRenderingFunction -> ({Black, 
     Text[#2, #1, 
      Background -> (Hue[
         Switch[#2, 0, 0.1, HoldForm@1, 0.2, 2, 0.3, 3, 0.4, List, 
          0.8, _, 0]])]} &)]

edited Jul 02 '20 at 13:47

answered Aug 21 '19 at 11:25

berniethejet

1,417
1
12
13

Using different colors in TreeForm?

3 Answers3