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)