blob: 4c1f9fac505fdd6f2670a5ff79f23cc9d9403ca1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
library(igraph)
setwd('~/Documents/Violence Cascades/')
load('Raw Data/lcc.RData')
non_vic_ids = setdiff(1:vcount(lcc),vic_ids)
perm = rep(0,vcount(lcc))
perm[non_vic_ids] = 1:length(non_vic_ids)
perm[vic_ids] = (length(non_vic_ids)+1):vcount(lcc)
lcc2 = permute(lcc,perm)
vic_ids2 = which(V(lcc2)$vic==T)
cols = rep('#1f78b4',vcount(lcc))
cols[vic_ids2] = '#e41a1c'
# layout.drl = layout_with_drl(lcc2,weights=NULL)
# save(layout.drl,file='Results/layout.RData')
load('Results/layout.RData')
par(bg='#e0e0e0')
plot(lcc,vertex.size=1,vertex.color=cols,vertex.label=NA,
layout=layout.drl,edge.color=NA,vertex.frame.color=NA)
|
