r:social_network_analysis_tutorial
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
r:social_network_analysis_tutorial [2019/11/27 08:35] – [Edges] hkimscil | r:social_network_analysis_tutorial [2023/11/23 08:50] (current) – hkimscil | ||
---|---|---|---|
Line 1: | Line 1: | ||
====== T1. ====== | ====== T1. ====== | ||
+ | '' | ||
+ | see [[https:// | ||
===== Dataset ===== | ===== Dataset ===== | ||
<file csv star-wars-network-edges.csv> | <file csv star-wars-network-edges.csv> | ||
Line 748: | Line 750: | ||
</ | </ | ||
{{: | {{: | ||
+ | |||
+ | cf. layout_with_fr: | ||
+ | < | ||
+ | par(mfrow=c(1, | ||
+ | set.seed(777) | ||
+ | fr <- layout_with_fr(g, | ||
+ | par(mar=c(0, | ||
+ | set.seed(666) | ||
+ | fr <- layout_with_fr(g, | ||
+ | par(mar=c(0, | ||
+ | |||
+ | </ | ||
+ | {{: | ||
+ | |||
+ | |||
+ | ===== Measurements ===== | ||
+ | < | ||
+ | degree(g, mode = " | ||
+ | closeness(g, | ||
+ | betweenness(g, | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | > degree(g, mode = " | ||
+ | R2-D2 | ||
+ | 7 | ||
+ | | ||
+ | | ||
+ | | ||
+ | 1 | ||
+ | GOLD FIVE | ||
+ | 0 | ||
+ | > closeness(g, | ||
+ | R2-D2 | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | | ||
+ | GOLD FIVE | ||
+ | | ||
+ | Warning message: | ||
+ | In closeness(g, | ||
+ | At centrality.c: | ||
+ | > betweenness(g, | ||
+ | R2-D2 | ||
+ | 0.011904762 0.035487528 0.057596372 0.297278912 0.011904762 0.000000000 0.032142857 | ||
+ | | ||
+ | 0.217120181 0.005442177 0.000000000 0.014852608 0.000000000 0.000000000 0.176190476 | ||
+ | | ||
+ | 0.000000000 0.000000000 0.011111111 0.003174603 0.003174603 0.032142857 0.000000000 | ||
+ | GOLD FIVE | ||
+ | 0.000000000 | ||
+ | > | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | g.c.deg <- degree(g, mode = " | ||
+ | g.c.clo <- closeness(g, | ||
+ | g.c.bet <- betweenness(g, | ||
+ | tmp <- data.frame(g.c.deg, | ||
+ | tmp[order(-g.c.clo, | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | > g.c.deg <- degree(g, mode = " | ||
+ | > g.c.clo <- closeness(g, | ||
+ | Warning message: | ||
+ | In closeness(g, | ||
+ | At centrality.c: | ||
+ | > g.c.bet <- betweenness(g, | ||
+ | > tmp <- data.frame(g.c.deg, | ||
+ | > | ||
+ | > tmp | ||
+ | g.c.deg | ||
+ | R2-D2 7 0.38181818 0.011904762 | ||
+ | CHEWBACCA | ||
+ | C-3PO 10 0.40384615 0.057596372 | ||
+ | LUKE 15 0.44680851 0.297278912 | ||
+ | DARTH VADER 5 0.32812500 0.011904762 | ||
+ | CAMIE 2 0.32307692 0.000000000 | ||
+ | BIGGS 7 0.36842105 0.032142857 | ||
+ | LEIA 12 0.42000000 0.217120181 | ||
+ | BERU 4 0.35000000 0.005442177 | ||
+ | OWEN 3 0.32812500 0.000000000 | ||
+ | OBI-WAN | ||
+ | MOTTI 3 0.31343284 0.000000000 | ||
+ | TARKIN | ||
+ | HAN 8 0.38888889 0.176190476 | ||
+ | GREEDO | ||
+ | JABBA 1 0.28767123 0.000000000 | ||
+ | DODONNA | ||
+ | GOLD LEADER | ||
+ | WEDGE 5 0.33870968 0.003174603 | ||
+ | RED LEADER | ||
+ | RED TEN 2 0.32307692 0.000000000 | ||
+ | GOLD FIVE 0 0.04545455 0.000000000 | ||
+ | > | ||
+ | > tmp[order(-g.c.clo, | ||
+ | g.c.deg | ||
+ | LUKE 15 0.44680851 0.297278912 | ||
+ | LEIA 12 0.42000000 0.217120181 | ||
+ | C-3PO 10 0.40384615 0.057596372 | ||
+ | HAN 8 0.38888889 0.176190476 | ||
+ | CHEWBACCA | ||
+ | OBI-WAN | ||
+ | R2-D2 7 0.38181818 0.011904762 | ||
+ | BIGGS 7 0.36842105 0.032142857 | ||
+ | RED LEADER | ||
+ | BERU 4 0.35000000 0.005442177 | ||
+ | DODONNA | ||
+ | GOLD LEADER | ||
+ | WEDGE 5 0.33870968 0.003174603 | ||
+ | DARTH VADER 5 0.32812500 0.011904762 | ||
+ | OWEN 3 0.32812500 0.000000000 | ||
+ | CAMIE 2 0.32307692 0.000000000 | ||
+ | RED TEN 2 0.32307692 0.000000000 | ||
+ | MOTTI 3 0.31343284 0.000000000 | ||
+ | TARKIN | ||
+ | GREEDO | ||
+ | JABBA 1 0.28767123 0.000000000 | ||
+ | GOLD FIVE 0 0.04545455 0.000000000 | ||
+ | > | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | g.c.bac <- distances(g, | ||
+ | g.c.bac | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | > g.c.bac <- distances(g, | ||
+ | > g.c.bac | ||
+ | R2-D2 CHEWBACCA C-3PO LUKE DARTH VADER CAMIE BIGGS LEIA BERU OWEN OBI-WAN MOTTI | ||
+ | R2-D2 | ||
+ | TARKIN HAN GREEDO JABBA DODONNA GOLD LEADER WEDGE RED LEADER RED TEN GOLD FIVE | ||
+ | R2-D2 2 | ||
+ | </ | ||
+ |
r/social_network_analysis_tutorial.1574811314.txt.gz · Last modified: 2019/11/27 08:35 by hkimscil