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