From 9a6b8e0a500e64d31f2072dc1acc333bf2d4af90 Mon Sep 17 00:00:00 2001 From: noah Date: Mon, 24 Jan 2022 23:39:43 -0600 Subject: [PATCH] Submission --- Schrick-Noah_CS-7863_Homework-1.R | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/Schrick-Noah_CS-7863_Homework-1.R b/Schrick-Noah_CS-7863_Homework-1.R index 6a6387c..b7640b4 100644 --- a/Schrick-Noah_CS-7863_Homework-1.R +++ b/Schrick-Noah_CS-7863_Homework-1.R @@ -22,7 +22,8 @@ g.netname <- "karate" g.deg <- degree(g) # Plots mainname <- paste("Network based on Degree for the", g.netname, "network", sep=" ") -plot(g, vertex.size = g.deg) +sizemult <- 25/max(g.deg) +plot(g, vertex.size = g.deg*sizemult, main=mainname) g.hist <- hist(g.deg,-1:max(g.deg),plot=F) plot(g.hist) @@ -32,7 +33,7 @@ plot(g.hist) g.eigs <- eigen_centrality(g)$vector # resolves degree ties g.eigs.sorted <- sort(g.eigs,decreasing=T) t(t(g.eigs.sorted)) #print one element per line -sizemult <- 50/g.eigs.sorted[1] +sizemult <- 25/g.eigs.sorted[1] V(g)$size <- (g.eigs*sizemult) #size the network nodes by eigenvector centrality mainname <- paste("Network based on Eigenvector Centrality for the", g.netname, "network", sep=" ") plot(g, main=mainname) @@ -44,7 +45,7 @@ plot(g, main=mainname) g.pr <- page.rank(g,)$vector g.pr.sorted <- sort(g.pr, decreasing = T) t(t(g.pr.sorted)) -sizemult <- 50/g.pr.sorted[1] +sizemult <- 25/g.pr.sorted[1] V(g)$size <- (g.pr*sizemult) #size the network nodes by page rank mainname <- paste("Network based on Page Rank for the", g.netname, "network", sep=" ") plot(g, main=mainname) @@ -78,7 +79,7 @@ kcs.df <- kcs.df[order(-kcs.df[,1]), , drop = FALSE] # sort by decreasing kcs.df <- kcs.df/max(kcs.df) # make non-neg kcs.df -sizemult <- 50/kcs.df[,1][1] +sizemult <- 25/kcs.df[,1][1] V(g)$size <- (kcs*sizemult) #size the network nodes by page rank mainname <- paste("Network based on Katz Centrality for the", g.netname, "network", sep=" ") plot(g, main=mainname)