Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Odd Behavior of GraphicsRow and GraphPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg116030] Re: Odd Behavior of GraphicsRow and GraphPlot
  • From: Alistair Windsor <alistair.windsor.mailinglists at gmail.com>
  • Date: Sat, 29 Jan 2011 05:29:46 -0500 (EST)

Thanks,

That indeed helps. However you cannot select the three graphs and save
them as a single pdf. You either have to save the cell as a pdf and
then trim off the extraneous information or save the graphs
individually. It turned out to be simpler to export the graphs
individually and combine them outside of Mathematica.

Why does GraphicsRow not work? The only difference I can see between
the graphs for which it works perfectly and these is that these have
edge labels. Indeed removing the edge labels and keeping everything
else the same GraphicsRow works perfectly.

I am currently trying to use the Mathematica 8 Graph instead but

Graph[{1 \[DirectedEdge] 1, 1 \[DirectedEdge] 2, 2 \[DirectedEdge] 1,
  2 \[DirectedEdge] 2, 3 \[DirectedEdge] 2, 3 \[DirectedEdge] 3,
  1 \[DirectedEdge] 3, 3 \[DirectedEdge] 1},
 VertexShapeFunction -> Circle]

fails completely.

On Fri, Jan 28, 2011 at 5:15 AM, Peter Pein <petsie at dordos.net> wrote:
> On 27.01.2011 09:40, Alistair Windsor wrote:
>> Dear All,
>>
>> I have a collection of 3 graphs
>>
>> vRF[pos_, name_] :== {White, EdgeForm[Black], Disk[pos, .1], Black,
>>    Text[name, pos]}
>>
>> g1 == GraphPlot[{{1 ->  1, "2"}, {1 ->  2, "12"}, {2 ->  1, "9"}, =
{2 ->  2,
>>       "2"}, {3 ->  2, "6"}, {3 ->  3, "5"}, {1 ->  3, "15"},=
 {3 ->  1,
>>      "9"}}, DirectedEdges ->  True, SelfLoopStyle ->  .2,
>>    Method ->  "CircularEmbedding", VertexRenderingFunction ->  v=
RF];
>>
>> g2 ==
>>    GraphPlot[{{1 ->  2, "12"}, {2 ->  1, "9"}, {3 ->  2, "6"},=
 {3 ->  3,
>>      "3"}, {1 ->  3, "15"}, {3 ->  1, "9"}}, DirectedEdges -> =
 True,
>>    SelfLoopStyle ->  .2, Method ->  "CircularEmbedding",
>>    VertexRenderingFunction ->  vRF];
>>
>> g3 ==
>>   GraphPlot[{{1 ->  2, "4"}, {2 ->  1, "3"}, {3 ->  2, "2"}, {3 =
->  3,
>>      "1"}, {1 ->  3, "5"}, {3 ->  1, "3"}}, DirectedEdges -> =
 True,
>>    SelfLoopStyle ->  .2, Method ->  "CircularEmbedding",
>>    VertexRenderingFunction ->  vRF];
>>
>> If I combine these with
>>
>> Row[{g1,g2,g3}]
>>
>> I get (almost) exactly what I want. However the sizing is wrong and I
>> cannot scale the output as a whole since it is not a single graphics
>> directive. To get this as a single Graphics object I use
>>
>> GraphicsRow[{g1,g2,g3}]
>>
>> but this yields something very different from the Row command. The
>> graphs are not visible at all.
>>
>> I am using Mathematica 8.0.0 on Mac OS X.
>>
>> I have had this problem once before but cannot remember what I did to fi=
x it.
>>
>> Anyone have any ideas?
>>
>> Yours,
>>
>> Alistair Windsor
>>
>
>
> Hi,
>
> here works:
> Row[Append[#, ImageSize -> 222] & /@ {g1, g2, g3}]
>
> Cheers,
> Peter
>
>


  • Prev by Date: Re: FindRoot with Logarithmic terms
  • Next by Date: Re: CellContext - Not ready for primetime use (opinion).
  • Previous by thread: Re: Odd Behavior of GraphicsRow and GraphPlot
  • Next by thread: Re: Odd Behavior of GraphicsRow and GraphPlot