Re: [R] network plot problem

[Rui Barradas]

Hello,

As for the directed = FALSE, it works with me:
g <- graph(given, directed = FALSE)

As for the label, it's easy. Create an attribute 'name' and then set the 
label to that attribute. For instance, using the alphabet's letters, 
first uppercase.

V(g)$name <- c(LETTERS, letters)[V(g)]  # or any other names
V(g)$label <- V(g)$name

Keep 'name' and 'label' separate, like this you may change the label if 
needed but the name will still be there.
Then the plot functions recognise the label attribute.

Hope this helps,

Rui Barradas

Em 27-07-2012 11:37, Vlatka Matkovic Puljic escreveu:
Thank you Rui.

With matrix works better. I got plot I have expected to have.

I want to be undirected. But

directed = FALSE
or
as.undirected(graph)

are not working? Where I'd gone wrong?

Shouldn't it be possible to add names  instead of numbers of nods with
vertex.label= ?



2012/7/26 Rui Barradas <ruipbarra...@sapo.pt>

Hello,

I don't see the problem.

given <- scan(text="

15 2
10 4
10 4
10 4
13 4
13 4
15 4
18 4
11 5
2 6
7 6
7 6
7 6
12 6
15 6
15 6
19 6
22 6
24 6
6 7
5 12
5 12
7 12
11 12
13 12
13 12
13 12
13 12
16 12
17 12
23 12
23 12
23 12
23 12
6 13
12 13
6 14
6 15
9 15
12 15
13 15
17 16
16 17
1 18
12 18
23 18
2 19
6 19
24 19
21 22
3 25
5 26
6 27
7 27
15 29
20 30
25 31
28 31
8 32
6 33
14 33
22 34
")
mat <- matrix(given, ncol=2, byrow=TRUE)

g <- graph(given)
# Or, not run (note the transpose)
#g <- graph(t(mat))
# The edges are exactly what is given
E(g)

V(g)$label <- V(g)
g$layout <- layout.fruchterman.reingold
plot(g, edge.arrow.size=0.5, edge.loop.angle=1, edge.curved=FALSE)


So my guess is you've messed up the graph creation.
Also, don't post datasets like that, use dput(), lik this:

dput(given)
c(15, 2, 10, 4, 10, 4, 10, 4, 13, 4, 13, 4, 15, 4, 18, 4, 11,
5, 2, 6, 7, 6, 7, 6, 7, 6, 12, 6, 15, 6, 15, 6, 19, 6, 22, 6,
24, 6, 6, 7, 5, 12, 5, 12, 7, 12, 11, 12, 13, 12, 13, 12, 13,
12, 13, 12, 16, 12, 17, 12, 23, 12, 23, 12, 23, 12, 23, 12, 6,
13, 12, 13, 6, 14, 6, 15, 9, 15, 12, 15, 13, 15, 17, 16, 16,
17, 1, 18, 12, 18, 23, 18, 2, 19, 6, 19, 24, 19, 21, 22, 3, 25,
5, 26, 6, 27, 7, 27, 15, 29, 20, 30, 25, 31, 28, 31, 8, 32, 6,
33, 14, 33, 22, 34)

Now all anyone has to do is to copy that output and paste it into an R
session.
(Try it with the matrix to see the result)

Hope this helps,

Rui Barradas
Em 25-07-2012 16:27, Vlatka Matkovic Puljic escreveu:

**Hi,


I wanted to create a network of drugs that are being studied together.
So, I created a file as a graph.
But plot of my network is not corect!
It looks like to me that something else is lying behind this network links
created.

Could someone help me with this?

Thanx!

a<-read.graph(file=file.**choose(), format="edgelist")
plot.igraph(a)

File (number present ID of drug):

15 2
10 4
10 4
10 4
13 4
13 4
15 4
18 4
11 5
2 6
7 6
7 6
7 6
12 6
15 6
15 6
19 6
22 6
24 6
6 7
5 12
5 12
7 12
11 12
13 12
13 12
13 12
13 12
16 12
17 12
23 12
23 12
23 12
23 12
6 13
12 13
6 14
6 15
9 15
12 15
13 15
17 16
16 17
1 18
12 18
23 18
2 19
6 19
24 19
21 22
3 25
5 26
6 27
7 27
15 29
20 30
25 31
28 31
8 32
6 33
14 33
22 34





______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.