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