noah/Network-Centralities
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Submission

Browse Source
This commit is contained in:
Noah L. Schrick 2022-01-24 23:39:43 -06:00
parent d7afb3cdb0
commit 9a6b8e0a50
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Schrick-Noah_CS-7863_Homework-1.R
View File

@ -22,7 +22,8 @@ g.netname <- "karate"
g.deg <- degree(g) g.deg <- degree(g)
# Plots # Plots
mainname <- paste("Network based on Degree for the", g.netname, "network", sep=" ") 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) g.hist <- hist(g.deg,-1:max(g.deg),plot=F)
plot(g.hist) plot(g.hist)
@ -32,7 +33,7 @@ plot(g.hist)
g.eigs <- eigen_centrality(g)$vector # resolves degree ties g.eigs <- eigen_centrality(g)$vector # resolves degree ties
g.eigs.sorted <- sort(g.eigs,decreasing=T) g.eigs.sorted <- sort(g.eigs,decreasing=T)
t(t(g.eigs.sorted)) #print one element per line 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 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=" ") mainname <- paste("Network based on Eigenvector Centrality for the", g.netname, "network", sep=" ")
plot(g, main=mainname) plot(g, main=mainname)
@ -44,7 +45,7 @@ plot(g, main=mainname)
g.pr <- page.rank(g,)$vector g.pr <- page.rank(g,)$vector
g.pr.sorted <- sort(g.pr, decreasing = T) g.pr.sorted <- sort(g.pr, decreasing = T)
t(t(g.pr.sorted)) 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 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=" ") mainname <- paste("Network based on Page Rank for the", g.netname, "network", sep=" ")
plot(g, main=mainname) 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 <- kcs.df/max(kcs.df) # make non-neg
kcs.df 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 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=" ") mainname <- paste("Network based on Katz Centrality for the", g.netname, "network", sep=" ")
plot(g, main=mainname) plot(g, main=mainname)