From bb68c49552f69b90ce840dbd7346fc76eb93e3e3 Mon Sep 17 00:00:00 2001 From: Ben Green Date: Fri, 18 Sep 2015 23:38:46 -0400 Subject: pretty plots! --- R Scripts/data-exploration.R | 7 ++++--- 1 file changed, 4 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 f9617f9..16e7bba 100755 --- a/R Scripts/data-exploration.R +++ b/R Scripts/data-exploration.R @@ -28,9 +28,10 @@ S = data.frame(C_dat = trl, S ##### Degree Distribution -plot(degree.distribution(lcc)*vcount(lcc),log='xy',type='l',col='red',lwd=2, - xlab='Degree', ylab='Number of Vertices', main='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='') +pl = power.law.fit(degree.distribution(lcc)) ##### Victims vic_ids = which(V(lcc)$vic==TRUE) -- cgit v1.2.3-70-g09d2