SLIDE 1
Network Data Networks as a kind of SOCIAL STRUCTURE Dyad A B - - PowerPoint PPT Presentation
Network Data Networks as a kind of SOCIAL STRUCTURE Dyad A B - - PowerPoint PPT Presentation
Network Data Networks as a kind of SOCIAL STRUCTURE Dyad A B Triad A B C Structural Position and Power A B C Centrality Structural Position and Power You Brother Duke student Track team GROUPS & Chris0an CATEGORIES GROUPS
SLIDE 2
SLIDE 3
Dyad
A B
SLIDE 4
A B C
Triad
SLIDE 5
Structural Position and Power
A B C
Centrality
SLIDE 6
Structural Position and Power
SLIDE 7
GROUPS &
CATEGORIES
Brother Track team Chris0an Duke student
You
SLIDE 8
GROUPS &
TIES
Brother Track team Chris0an Duke student
You
SLIDE 9
SLIDE 10
St Andrew’s Lodge The Loyal Nine Boston North Caucus The Long Room Club The Tea Party The London Enemies List The Boston Committee
SLIDE 11
S t A n d r e w ’ s L
- d
g e T h e L
- y
a l N i n e B
- s
t
- n
N
- r
t h C a u c u s T h e L
- n
g R
- m
C l u b T h e T e a P a r t y T h e L
- n
d
- n
E n e m i e s L i s t T h e B
- s
t
- n
C
- m
m i t t e e
- J. Adams
- S. Adams
- N. Appleton
- G. Ash
- B. Austin
- S. Austin
- J. Avery
- C. Baldwin
- J. Ballard
1 1 1 1 1 1 1 1 1 1 1 1 1 1 People (254) Groups (7)
SLIDE 12
St Andrew’s Lodge The Loyal Nine Boston North Caucus The Long Room Club The Tea Party The London Enemies Lis The Boston Committee
- J. Adams
- S. Adams
- N. Appleton
- G. Ash
- B. Austin
- S. Austin
- J. Avery
- C. Baldwin
- J. Ballard
1 1 1 1 1 1 1 1 1 1 1 1 1 1 People (254) Groups (7)
SLIDE 13
Groups (7) People (254) Groups (7) People (254)
x =
People (254) People (254)
SLIDE 14
library(ggraph) library(graphlayouts) # drat::addRepo("kjhealy") # install.packages("kjhnet") library(kjhnet) revere
## person st_andrews_lodge loyal_nine north_caucus ## 1 Adams.John 0 0 1 ## 2 Adams.Samuel 0 0 1 ## 3 Allen.Dr 0 0 1 ## 4 Appleton.Nathaniel 0 0 1 ## 5 Ash.Gilbert 1 0 0 ## 6 Austin.Benjamin 0 0 0 ## 7 Austin.Samuel 0 0 0 ## 8 Avery.John 0 1 0 ## 9 Baldwin.Cyrus 0 0 0 ## 10 Ballard.John 0 0 1 ## 11 Barber.Nathaniel 0 0 1
SLIDE 15 r_p <- as.matrix(revere[,-1]) %*% t(as.matrix(revere[,-1])) dim(r_p)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] ## [1,] 2 2 1 1 0 0 0 0 0 1 1 0 0 ## [2,] 2 4 1 2 0 1 1 1 1 1 3 0 1 ## [3,] 1 1 1 1 0 0 0 0 0 1 1 0 0 ## [4,] 1 2 1 2 0 0 0 0 0 1 2 0 0 ## [5,] 0 0 0 0 1 0 0 0 0 0 0 0 1 ## [6,] 0 1 0 0 0 1 1 1 1 0 1 0 1 ## [7,] 0 1 0 0 0 1 1 1 1 0 1 0 1
SLIDE 16
r_g <- t(as.matrix(revere[,-1])) %*% as.matrix(revere[,-1]) dim(r_g) ## st_andrews_lodge loyal_nine north_caucus long_room_club ## st_andrews_lodge 53 2 3 2 ## loyal_nine 2 10 3 0 ## north_caucus 3 3 59 5 ## long_room_club 2 0 5 17 ## tea_party 3 2 13 2 ## boston_committee 1 0 9 5 ## london_enemies 3 3 16 5 ## tea_party boston_committee london_enemies ## st_andrews_lodge 3 1 3 ## loyal_nine 2 0 3 ## north_caucus 13 9 16 ## long_room_club 2 5 5 ## tea_party 97 3 8 ## boston_committee 3 21 11 ## london_enemies 8 11 62
SLIDE 17
revere_groups ## # A tbl_graph: 7 nodes and 49 edges ## # ## # An undirected multigraph with 1 component ## # ## # Node Data: 7 x 2 (active) ## id name ## <int> <chr> ## 1 1 st_andrews_lodge ## 2 2 loyal_nine ## 3 3 north_caucus ## 4 4 long_room_club ## 5 5 tea_party ## 6 6 boston_committee ## # … with 1 more row ## # ## # Edge Data: 49 x 3 ## from to value ## <int> <int> <dbl> ## 1 1 1 53 ## 2 1 2 2 ## 3 1 3 3 ## # … with 46 more rows
SLIDE 18
revere_groups %>% ggraph(layout = "kk") + geom_edge_link(aes(width = value), color = "gray80") + geom_node_label(aes(label = name)) + theme_graph()
SLIDE 19 revere_persons %>% mutate(centrality = centrality_eigen()) %>% ggraph(layout = "stress") + geom_edge_link0(aes(edge_width = value), color = "gray60") + scale_edge_width(range = c(0.02, 2))+ geom_node_point() + geom_node_label(aes(filter = centrality > 0.9, label = name), size = rel(2.5)) + theme_graph()
SLIDE 20
SLIDE 21
NETWORK STRUCTURE IN THE ILIAD
SLIDE 22
Hector waiting, watching the greathearted Patroclus trying to stagger free, seeing him wounded there with the sharp bronze came rushing into him right across the lines and rammed his spearshaft home, stabbing deep in the bowels, and the brazen point went jutting straight out through Patroclus' back
SLIDE 23
Hector! Now is your time to glory to the skies
SLIDE 24
So, Who’s The Most Important Warrior in The Iliad?
SLIDE 25
SLIDE 26
SLIDE 27
il_tidy %>% activate(nodes) %>% ggraph(layout = "fr") + geom_edge_link(color = "gray80") + geom_node_point(aes(color = affil)) + scale_color_manual(values = c("blue", "red"), labels = c("Athenian", "Trojan")) + guides(color = guide_legend(title = "Side", )) + labs(title = “Violence in The Iliad") + theme(plot.title = element_text(size = rel(3)))
SLIDE 28
SLIDE 29
SLIDE 30
SLIDE 31
SLIDE 32
Rage, sing goddess of the rage of Achilles son of Peleus
SLIDE 33
Patroclus
Hector
Achilles
SLIDE 34
Patroclus
Hector
Achilles