Re: Text does not show up in vertices of GraphPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg87893] Re: Text does not show up in vertices of GraphPlot3D
- From: P_ter <petervansummeren at gmail.com>
- Date: Sat, 19 Apr 2008 03:37:14 -0400 (EDT)
I asked help from Wolfram in this case with the graph gr1.
gr1 = {"adacadabra" -> 1, "adacadabra" -> 2, 1 -> 3, 1 -> 4, 1 -> 5,
2 -> 6, 2 -> 5, 3 -> 7, 3 -> 8, 5 -> 8, 4 -> 7, 4 -> 9, 5 -> 9,
6 -> 9, 6 -> 10, 7 -> 11, 8 -> 11, 9 -> 11, 10 -> 11}
Chetiya Sahabandu came with the following answer:
GraphPlot3D[gr1, VertexLabeling -> True,
EdgeRenderingFunction -> (Cylinder[#1, .05] &),
VertexRenderingFunction -> ({{Text[#2, #1]}, {ColorData["Atoms"][
100], Sphere[#1, .19]}, {Style[Text[#2, #1], Bold, 16,
Green]}, {ColorData["Atoms"][100], Sphere[#1, .19]}} &),
PlotStyle -> Directive[Specularity[White, 20]]]
I post this answer because I hope that people can use it.
Thanks to Chetiya Sahabandu.
with friendly greetings,
P_ter