-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy path.Rhistory
512 lines (511 loc) · 27.1 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.3)
png(filename = "test.png", height = 800, width = 800)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.3)
dev.off()
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.1)
png(filename = "test.png", height = 800, width = 800)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.1)
dev.off()
png(filename = "test.png", height = 800, width = 800)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
summary(hh)
summary(gg)
betweenness(gg)
V(gg)
betweenness(gg2)
V(gg2)
degree(gg2)
no.clusters(gg2)
clusters(gg2)
help(write)
write(get.edgelist(gg2), "../../r_network_project/data/ml_graph.txt")
get.edgelist(gg2)
gg3 <- read.graph("../../r_network_project/data/ml_graph.txt")
gg3 <- read.graph("../../r_network_project/data/ml_graph.txt", format="edgelist")
write(get.edgelist(gg2), "../../r_network_project/data/ml_graph.txt", format="edgelist")
write(get.edgelist(gg2), "../../r_network_project/data/ml_graph.txt", format=c("edgelist"))
write.graph(get.edgelist(gg2), "../../r_network_project/data/ml_graph.txt")
write.graph(get.edgelist(gg2), "../../r_network_project/data/ml_graph.txt", format="edgelist")
write.graph(gg2, "../../r_network_project/data/ml_graph.txt", format="edgelist")
write.graph(gg2, "../../r_network_project/data/ml_graph.txt")
write.graph(gg2, "../../r_network_project/data/ml_graph.txt", "edgelist")
ecount(gg2)
write.graph(gg2, "../../r_network_project/data/ml_graph.txt", "pajek")
write.graph(gg2, "../../r_network_project/data/ml_graph.txt", "graphml")
write.graph(gg2, "../../r_network_project/data/ml_graph.graphml", "graphml")
png(filename = "../../r_network_project/visualization/ml_graph.png", height = 800, width = 800)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png(filename = "../../r_network_project/visualization/ml_graph.png", height = 400, width = 800)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png(filename = "../../r_network_project/visualization/ml_graph.png", height = 600, width = 800)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15, margin=0)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15, margin=1)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, rescaleLogical=F)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, rescale=F)
png(filename = "../../r_network_project/visualization/ml_graph.png")
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, rescale=F)
dev.off()
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
com <- spinglass.community(gg2, spins=5)
fastgreedy.community(gg2)
com <- fastgreedy.community(gg2)
comps <- clusters(gg2)$membership
colbar <- rainbow(max(comps))
colbar <- rainbow(max(comps)+1)
V(gg2)$color <- colbar[comps+1]
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
library(igraph)
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
com <- fastgreedy.community(gg2)
help(community)
help(community.)
help(spinglass.community)
edge.betweenness.community(gg2)
walktrap.community(gg2)
ebc <- edge.betweenness.community(gg2)
memb <- community.to.membership(ebc)
memb <- community.to.membership(gg2)
memb <- community.to.membership(gg2, ebc$merges, steps=which.max(ebc$merge))
ebc <- edge.betweenness.community(gg2, modularity=T)
help(edge.betweenness.community)
leading.eigenvector.community(gg2)
com <. leading.eigenvector.community(gg2)
com <- leading.eigenvector.community(gg2)
V(g)$color <- com$membership+1
V(gg2)$color <- com$membership+1
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
png(filename = "../../r_network_project/visualization/ml_community_graph.png")
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
png(filename = "visualization/ml_community_graph.png")
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
dev.off()
comps <- clusters(gg2)$membership
V(gg2)$color <- colbar[comps+1]
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
dev.off()
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
png(filename = "visualization/ml_cluster_graph.png")
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
dev.off()
V(gg2)$color <- NULL
V(gg2)$color <- Null
comps <- clusters(gg)$membership
colbar <- rainbow(max(comps)+1)
V(gg)$color <- comps$membership+1
colbar <- rainbow(max(comps)+1)
V(gg2)$color <- colbar[comps+1]
V(gg)$color <- colbar[comps+1]
plot(simplify(gg), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
length(colbar)
gg3
gg2 <- delete.vertices(gg, c(4))
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
png("ml_graph.png")
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4)
dev.off()
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
png("visualization/ml_graph.png")
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png("visualization/ml_graph.png", width=800, height=800)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png("visualization/ml_graph.png", width=600, height=600)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png("visualization/ml_graph.png", width=600, height=600)
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
get.adjacency(gg2)
get.adjacency(gg2, attr="weight")
E(gg2)
is.multiple(gg2, E(gg2))
is.multiple(gg, E(gg))
is.multiple(gg2, E(gg2), dir=F)
count.multiple(gg)
count.multiple(gg2)
help(count.multiple)
is.multiple(gg2, E(gg2), dir=FALSE)
help(count.multiple)
summary(gg2)
help(data.frame.graph)
help(graph.data.frame)
degree(gg2)
max(degree(gg2))
degree.distribution(gg2)
hist(degree.distribution(gg2))
t(degree.distribution(gg2))
hist(t(degree.distribution(gg2))))
hist(t(degree.distribution(gg2)))
metrics <- data.frame(deg= degree(gg2), bet=betweenness(gg2), clo=closeness(gg2))
metrics
shortest.paths(gg2)
average.path.length(gg2)
plot(degree.distribution(gg2), log="xy")
plot(degree.distribution(gg2))
graph.density(gg2)
transitivity(gg2)
dd <- degree.distribution(gg2)
plot(dd, xlab="degree", ylab="frequency")
abline(h=mean(dd))
abline(v=mean(dd))
plot(dd, xlab="degree", ylab="frequency")
abline(v=mean(degree(gg2)))
hist(degree.distribution(gg2))
abline(v=mean(degree(gg2)))
abline(h=mean(degree(gg2)))
degree.distribution(gg3)
degree.distribution(gg2)
degree(gg2)
hist(degree(gg2))
abline(h=mean(degree(gg2)))
abline(v=mean(degree(gg2)))
hist(degree(gg2))
abline(v=mean(degree(gg2)))
help(hist)
help(hist)
hist(degree(gg2), breaks=10)
hist(degree(gg2), breaks=123)
hist(degree(gg2), breaks=23)
help(hist)
hist(degree(gg2), breaks=23, ylim=c(0,23))
hist(degree(gg2), breaks=23, ylim=c(0,30))
hist(degree(gg2), breaks=23, xlim=c(0,23))
hist(degree(gg2), breaks=23, xlim=c(0,30))
hist(degree(gg2), breaks=23, xlim=c(0,25))
hist(degree(gg2), breaks=1:23, xlim=c(0,25))
1:12
class(1:12)
c(1:12)
hist(degree(gg2), breaks=c(1:23), xlim=c(0,25))
hist(degree(gg2), breaks=c(1:10), xlim=c(0,25))
barplot(degree(gg2))
barplot(table(degree(gg2)))
abline(v=mean(degree(gg2)))
help(abline)
abline(v=mean(degree(gg2)), col=4)
abline(v=mean(degree(gg2)), col="red")
help(abline)
abline(v=mean(degree(gg2)), col="red", lty=3)
abline(v=mean(degree(gg2)), col="red", )
help(abline)
png("visualization/degree_hist.png")
barplot(table(degree(gg2)))
abline(v=mean(degree(gg2)), col="red")
dev.off()
density(gg2)
graph.density(gg2)
help(graph.density)
mean(degree(gg2))
barplot(table(degree(gg2)))
abline(v=mean(degree(gg2))+1, col="red")
png("visualization/degree_hist.png")
barplot(table(degree(gg2)))
abline(v=mean(degree(gg2))+1, col="red")
dev.off()
table(degree(gg2))
degree(gg2))
V(gg2)[4]
V(gg2)[3]
V(gg2)[0]
V(gg2)[-1]
V(gg2)[3]
transitivity(gg2)
help(transitivity)
help(transitivity)
transitivity(gg2, type="undirected")
help(transitivity)
transitivity(gg2, type="global")
help(transitivity)
help(transitivity)
quit()
barplot(table(rbinom(10000, 20000, 0.0001)))
hist(rbinom(1000,2000,0.0001),breaks=function(x) length(unique(x)))
vcount(gg2)
library(gg2)
library(igraph)
vcount(gg2)
ecount(gg2)
betweenness(gg2)
gg2bet <- betweenness(gg2)
gg2bet > 400
V(gg2)[gg2bet > 400]
V(gg2)[gg2bet > 300]
help(degree)
help(betweness)
help(betweenness)
gg2clo <- closeness(gg2)
gg2clo
V(gg2)[gg2clo > 0.02]
V(gg2)[gg2clo > 0.03]
V(gg2)[gg2clo > 0.025]
V(gg2)[gg2clo > 0.023]
V(gg2)[gg2clo > 0.022]
V(gg2)[gg2clo > 0.021]
V(gg2)[gg2clo > 0.0209]
V(gg2)[gg2clo > 0.0201]
V(gg2)[gg2clo > 0.0203]
V(gg2)[gg2clo > 0.020]
V(gg2)[gg2clo > 0.021]
V(gg2)[gg2clo > 0.0205]
V(gg2)[gg2clo > 0.0203]
V(gg2)[gg2clo > 0.02001]
V(gg2)[gg2clo > 0.02005]
mean(betweenness(gg2))
average.path.length(gg2)
which(gg2col > 0.020)
gg2clo
gg2clo > 0.02005
V(gg2)[gg2clo > 0.02005]
gg2clo[gg2clo > 0.02005]
V(gg2)[gg2clo > 0.02003]
V(gg2)[gg2clo > 0.02004]
table(V(gg2)[gg2clo > 0.02004])
help(table)
data.frame(gg2clo[gg2clo > 0.02005])
vv <- gg2clo[gg2clo > 0.02005]
data.frame(vv)
clb <- V(gg2)[gg2clo > 0.02004]
data.frame(vv, clb)
clb <- V(gg2)[gg2clo > 0.02004]$name
data.frame(vv, clb)
clb
vv <- gg2clo[gg2clo > 0.02004]
data.frame(vv, clb)
data.frame(clb, vv))
data.frame(clb, vv)
as.table(data.frame(clb, vv))
library(xtable)
xtable(data.frame(clb, vv))
gg2bet
gg2bet > 400
gg2[gg2bet > 400]
V(gg2)[gg2bet > 400]
V(gg2)[gg2bet > 300]
vv <- gg2bet[gg2bet > 300]
V(gg2)[gg2bet > 250]
V(gg2)[gg2bet > 200]
V(gg2)[gg2bet > 100]
V(gg2)[gg2bet > 150]
V(gg2)[gg2bet > 170]
vv <- gg2bet[gg2bet > 170]
clb <- V(gg2)[gg2bet > 170]$name
xtable(data.frame(clb, vv))
xtable(sort(data.frame(clb, vv)))
help(betweenness)
betweenness(gg2, directed=F)
help(betweenness)
closeness(gg2)
helpcloseness)
help(closeness)
degree(gg2)
dd <- degree(gg2)
V(gg2)[dd > 20]
V(gg2)[dd > 10]
V(gg2)[dd > 9]
V(gg2)[dd > 8]
vv <- V(gg2)[dd > 8]
clb <- V(gg2)[dd > 8]$name
xtable(sort(data.frame(clb, vv)))
vv <- dd > 8
vv <- dd[dd > 8]
xtable(sort(data.frame(clb, vv)))
xtable(data.frame(clb, vv))
help(closeness)
closeness(gg2, v=V(gg2))
help(closeness)
no.clusters(gg2)
clusters(gg2)
memb <- clusters(gg2)$membership
colbar <- rainbow(max(memb)+1)
V(gg2)$color <-colbar[colbar+1]
V(gg2)$color <-colbar[colbar]
V(gg2)$color <-colbar[memb+1]
plot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
tkplot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
no.clusters
no.clusters(gg2)
clusters(gg2)
clusters(gg2)$size == 1
clusters(gg2)$size > 1
cs <- clusters(gg2)$size
cs[cs > 1]
cs
clusters(gg2)$csize > 1
clusters(gg2)$csize == 1
cs <- clusters(gg2)$csize
cs[cs > 1]
cs[cs = 1]
cs[cs == 1]
cs == 1
length(cs[cs == 1])
no.clusters(gg2)
tkplot(simplify(gg2), vertex.label=NA, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
plot(simplify(gg2), vertex.label=NA, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
png("visualization/ml_cluster_graph.png", width=600, height=600)
plot(simplify(gg2), vertex.label=NA, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png("visualization/ml_cluster_graph.png", width=400, height=400)
plot(simplify(gg2), vertex.label=NA, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png("visualization/ml_cluster_graph.png", width=400, height=400)
plot(simplify(gg2), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
tkplot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=tk, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
tkplot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
tkplot(simplify(gg2), vertex.label=V(gg2)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.dist=0.15)
clusters()
cl <- clusters(gg2)
cl
help(delete.vertices)
cl$membership == 1
V(gg3, cl$membership == 0)
V(gg2)[cl$membership == ]
V(gg2)[cl$membership != 0]
sg <- delete.vertices(gg2, V(gg2)[cl$membership != 0])
tkplot(simplify(sq), vertex.label=V(sq)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.dist=0.15)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.dist=0.15)
cl$csize
V(gg2)[cl$membership == 2]
V(gg2)[cl$membership == 1]
V(gg2)[cl$membership == 7]
V(gg2)[cl$membership == 1]
V(gg2)[cl$membership == 2]
V(gg2)[cl$membership == 3]
V(gg2)[cl$membership == 4]
V(gg2)[cl$membership == 5]
V(gg2)[cl$membership == 6]
V(gg2)[cl$membership == 7]
V(gg2)[cl$membership == 8]
V(gg2)[cl$membership == 9]
V(gg2)[cl$membership == 10]
V(gg2)[cl$membership == 11]
V(gg2)[cl$membership == 12]
com <- spinglass.community(sg, spins=5)
V(sg)$color <- com$membership+1
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.dist=0.15)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
tkplot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
png("visualization/ml_community_graph.png", width=400, height=400)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png("visualization/ml_community_graph.png", width=600, height=200)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png("visualization/ml_community_graph.png", width=500, height=300)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png("visualization/ml_community_graph.png", width=500, height=400)
png("visualization/ml_community_graph.png", width=550, height=400)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
dev.off()
png("visualization/ml_community_graph.png", width=450, height=400)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
png("visualization/ml_community_graph.png", width=450, height=400)
plot(simplify(sg), vertex.label=NA, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png("visualization/ml_community_graph.png", width=200, height=200)
plot(simplify(sg), vertex.label=NA, vertex.size=3, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
png("visualization/ml_community_graph.png", width=400, height=400)
plot(simplify(sg), vertex.label=NA, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
dev.off()
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
largest.cliques(gg2)
clique.number(gg2)
cliques(gg2)
cliq <- cliques(gg2)
names(cliq)
help(cliques)
maximal.cliques(gg2)
help(clique.number)
clique.number(gg2)
help(cliques)
ave
average.path.length(gg2)
help(average.path.length)
help(shortes.path)
help(shortest.paths)
path.length.hist(gg2)
help(path.length.hist)
path.length.hist(gg2)$res
boxplot(path.length.hist(gg2)$res)
help(hist)
hist(path.length.hist(gg2)$res)
barplot(path.length.hist(gg2)$res)
barplot(table(path.length.hist(gg2)$res))
barplot(path.length.hist(gg2)$res, c(0,1,2,3,4,5,6))
help(barplot)
help(table)
table(c(0,1,2,3,4,5,6), path.length.hist(gg2)$res)
barplot(table(c(0,1,2,3,4,5,6), path.length.hist(gg2)$res))
table(t(c(0,1,2,3,4,5,6)), path.length.hist(gg2)$res)
table( path.length.hist(gg2)$res, c(0,1,2,3,4,5,6))
as.table(path.length.hist(gg2)$res)
help(as.table)
degree(gg2)
path.length.hist(gg2)$res
barplot(degree(gg2))
barplot(table(degree(gg2)))
table(degree(gg2))
plh <- path.length.hist(gg2)$res
table(plh)
help(table)
table(c(0:6), plh)
help(table)
as.table(c(0:6), plh)
as.table(plh)
names(as.table(plh))
tt <- as.table(plh)
tt$"A"help
barplot(as.table(plh))
help(as.table)
barplot(as.table(plh, dnn=c(0.6)))
barplot(as.table(plh, dnn=list.names(c(0.6))))
names(tt)
help(colnames)
colnames(tt) <- c(0:6)
colnames(tt)
names(tt)
names(tt) <- c(0:6)
tt
barplot(tt)
help(barplot)
help(barplot, xl)
barplot(as.table(plh, dnn=list.names(c(0.6))), xlab="Pfadlänge")
barplot(tt, xlab="Pfadlänge", ylab="Anzahl der Pfade")
abline(v=average.path.length(gg2), col="red")
abline(v=average.path.length(gg2)+1, col="red")
png("visualization/shortest_path_hist.png", width=200, height=200)
barplot(tt, xlab="Pfadlänge", ylab="Anzahl der Pfade")
abline(v=average.path.length(gg2)+1, col="red")
dev.off()
png("visualization/shortest_path_hist.png")
barplot(tt, xlab="Pfadlänge", ylab="Anzahl der Pfade")
abline(v=average.path.length(gg2)+1, col="red")
dev.off()
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.15)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.5)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.25)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.3)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.3)
png("visualization/shortest_path_hist.png", width=1280, height=800)
dev.off()
png("visualization/ml_graph_big.png", width=1280, height=800)
plot(simplify(sg), vertex.label=V(sg)$name, vertex.size=5, layout=layout.fruchterman.reingold, edge.color="black", asp=F, edge.curved=T, vertex.label.color="gray30", vertex.label.cex=0.75, vertex.label.degree=pi/4, vertex.label.dist=0.3)
dev.off()
quit()