diff options
| author | Ben Green <bgreen@g.harvard.edu> | 2015-09-22 08:28:13 -0400 |
|---|---|---|
| committer | Ben Green <bgreen@g.harvard.edu> | 2015-09-22 08:28:16 -0400 |
| commit | 28945245f49fafed3d05579166a46530845d2d8a (patch) | |
| tree | 9703409e142334339d5c145f9415501be8597ec7 /R Scripts/plot-network.R | |
| parent | 8c2d3d070a3db1b469e3e32e3c20ef67bc274b3b (diff) | |
| download | criminal_cascades-28945245f49fafed3d05579166a46530845d2d8a.tar.gz | |
script to plot entire lcc
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) |