Re: issues with GraphPlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg99070] Re: issues with GraphPlot*From*: Bob F <deepyogurt at gmail.com>*Date*: Sun, 26 Apr 2009 01:37:39 -0400 (EDT)*References*: <gsuisc$drq$1@smc.vnet.net>

On Apr 25, 2:50 am, sean_inc... at yahoo.com wrote: > Hello group, > > A few things that I just can't figure out. > > 1. EdgeRenderingFunction ignores edge labels. > > GraphPlot[{{"B" -> "A" , "+"}, {"A" -> "B", "+"}}, > DirectedEdges -> True, VertexLabeling -> True, > VertexRenderingFunction -> ({White, EdgeForm[Black], Disk[#, .05], > Black, Text[#2, #1]} &), EdgeLabeling -> True, > EdgeRenderingFunction -> ({ Arrowheads[Medium], > Arrow[#1 , 0.07]} &), PlotStyle -> Thickness[0.005]] > > 2. As it is, above code produces a graph that is stretched > horizontally a bit too much. About the half the horizontal width works > better for me. How do I accomplish that? AspectRatio-> 1/GoldenRatio > doesn't work since disk gets stretch also. > > 3. For node A to appear on the left, "B"-> "A" has to be defined > first. If I reverse it, then the node B will appear on the left. What > is the reason for this? > > Thanks in advance for any info. > > Sean Sean, Forgot to talk about issue #2 -- I think you can use ImageSize-{x,y} to help get what you want. For example: GraphPlot[{{"A" -> "B", "+"}, {"B" -> "A", "+"}}, DirectedEdges -> True, VertexLabeling -> True, Method -> "SpringElectricalEmbedding", VertexRenderingFunction -> ({White, EdgeForm[Black], Disk[#, .15], Black, Text[#2, #1]} &), EdgeLabeling -> True, EdgeRenderingFunction -> ({Arrowheads[Medium], Arrow[#1, 0.15]} &), PlotStyle -> Thickness[0.005], ImageSize -> {100, 100}] gives a much narrower image, but you loose the curved arrows from before. HTH... -Bob