From 3969a594c49e58aafe04ff352b02d0d61eb228cf Mon Sep 17 00:00:00 2001 From: Ben Green Date: Tue, 29 Sep 2015 18:36:38 -0400 Subject: finalizing plots! --- R Scripts/data-exploration.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'R Scripts/data-exploration.R') diff --git a/R Scripts/data-exploration.R b/R Scripts/data-exploration.R index 16e7bba..f8f6892 100755 --- a/R Scripts/data-exploration.R +++ b/R Scripts/data-exploration.R @@ -1,6 +1,6 @@ library(igraph) setwd("~/Documents/Violence Cascades/") -load('Results/hyper-lcc.RData') +load('Raw Data/lcc.RData') d = remove.edge.attribute(person,'weight') lcc = induced.subgraph(d,which(clusters(d)$membership==which.max(clusters(d)$csize))) @@ -29,8 +29,8 @@ S ##### Degree Distribution plot(1:max(degree(lcc)),degree.distribution(lcc)[-1]*vcount(lcc), - log='xy',col='#377EB8',pch=20, - xlab='Degree', ylab='Number of Vertices', main='') + log='xy',col='#1f78b4',pch=20,cex.axis=0.6,cex.lab=0.6, + xlab='Degree', ylab='Number of vertices', main='') pl = power.law.fit(degree.distribution(lcc)) ##### Victims -- cgit v1.2.3-70-g09d2