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)

# library(rgl)
rglplot(lcc,vertex.size=1,vertex.color=cols,vertex.label=NA,
     layout=layout.drl,edge.color=NA,vertex.frame.color=NA)