Re: label graph vertices

• To: mathgroup at smc.vnet.net
• Subject: [mg74493] Re: label graph vertices
• From: dh <dh at metrohm.ch>
• Date: Fri, 23 Mar 2007 19:04:24 -0500 (EST)
• References: <ett7ks\$id6\$1@smc.vnet.net>

```
Hi Alessandro,

this can e.g. be done withthe "VertexStyleFunction" options. E.g.:

In[35]:=

labels = Table[StringJoin["Label", ToString[i]], {i, 12}];

GraphPlot[{1 -> 2, 2 -> 3, 3 -> 4, 4 -> 5,

5 -> 6, 6 -> 7, 7 -> 8, 8 -> 1, 1 -> 9,

2 -> 9, 3 -> 10, 4 -> 10, 6 -> 11, 5 -> 11,

7 -> 12, 8 -> 12},

"EdgeStyleFunction" -> (Arrow[{#1, #2}] & ),

"VertexStyleFunction" -> ({Text[labels[[#1]], #1]} & )]

Daniel

alexxx.magni at gmail.com wrote:

> greetings,

> after having used for some time a very powerful program (Graphviz) for

> displaying the graph structures I'm working on, I decided to give it a

> try under Mathematica, since I use M. for many other related tasks.

>

> I started from DiscreteMath`GraphPlot`, but from what I can see

> everything is done using an adjacency matrix composed of (0,1)'s,

> right?

> That is, my problem is that I need to LABEL the vertices with a name,

> instead of a position.

> I thought for a moment it was possible (e.g. see graph under

> "MaximalBipartiteMatching" with Tom,Rob,Adam etc), but I then realized

> it was demonstration-only, and no code is present to do it

>

> am I right, or there is a way?

>

> thanks for any help...

>

> Alessandro Magni

>

>

```

• Prev by Date: Re: notebook as TXT
• Next by Date: Re: About function to evaluation
• Previous by thread: Re: label graph vertices
• Next by thread: Re: label graph vertices