diff options
Diffstat (limited to 'R Scripts/plot-network.R')
| -rw-r--r-- | R Scripts/plot-network.R | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/R Scripts/plot-network.R b/R Scripts/plot-network.R new file mode 100644 index 0000000..38e241d --- /dev/null +++ b/R Scripts/plot-network.R @@ -0,0 +1,19 @@ +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') + +plot(lcc,vertex.size=1,vertex.color=cols,vertex.label=NA, + layout=layout.drl,edge.color=NA,vertex.frame.color=NA) |