Death of Stalin Study Test
Noni Jones
1/28/2020
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:igraph':
##
## as_data_frame, groups, union## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(DT)
library(visNetwork)plot(talked, vertex.color = "lightblue", vertex.size = 10, vertex.shape = "sphere",
vertex.label.cex=0.55, vertex.label.color= "black", edge.color = "gray", edge.arrow.size = 0, edge.curved = 0, main = "Death of Stalin Movie Network", layout = layout_with_kk)
Figure 1: Death of Stalin Movie Network, igraph
This is a graph representing the characters in the movie Death of Stalin. This network was created by cataloging any characters that had speaking roles, and their interactions together. Generally, the characters in this movie can be associated with proximity, social networks and communities Their ties can be understood to be information flow through the network.
## IGRAPH 166a6de UN-- 34 99 --
## + attr: name (v/c)
## + edges from 166a6de (vertex names):
## [1] Josef Stalin --Lavrenti Beria
## [2] Josef Stalin --Nikita Khrushchev
## [3] Josef Stalin --Vyacheslav Molotov
## [4] Josef Stalin --Radio Producer
## [5] Josef Stalin --Georgy Malenkov
## [6] Josef Stalin --Anastas Mikoyan
## [7] Josef Stalin --Matryona Petrovna
## [8] Lavrenti Beria--Nikita Khrushchev
## + ... omitted several edges## [1] 5## [1] 2.263815## Josef Stalin Lavrenti Beria Nikita Khrushchev
## 7 20 18
## Vyacheslav Molotov Maria Veniaminovna Sergei
## 10 5 1
## Field Marshal Zhukov Radio Producer Georgy Malenkov
## 12 5 16
## Svetlana Stalin Vasily Stalin Anastas Mikoyan
## 10 11 9
## Lazar Kaganovich Mezhnikov Nicolai Bulganin
## 12 2 9
## NKVD Officer Delov NKVD Officer Pervak Dr. Lukomsky
## 6 6 7
## Matryona Petrovna NKVD Officer Sliminov Polina Molotova
## 2 1 3
## Lidiya Timashuk Nina Khrushcheva NKVD Officer Aslanov
## 2 1 8
## NKVD Officer Kobulov NKVD Guard Ilyin Zhou Enlai
## 3 1 2
## Anatoly Tarasov Translator Zhukov's Chief of Staff
## 1 2 1
## Leonid Brezhnev Concert Director Khrustalyov
## 1 2 1
## Marshal Konev
## 1## [1] 0.42959## [1] 5.823529## [1] 0.5214795## [1] 0.42959## [1] 0.6742376General Topographical Measures: Exploring the Overall Network
Size: 34
There are 34 nodes, or individuals in this network.
Diameter: 5
The diameter of a network is the measure of how far the farthest people are from each other. In this network, the Acero network, that distance is 5 ties.
Average path length: 2.263815
The average path length is the average shortest path between two nodes. In this network, most people, on average only need to go through 2-3 people to get to their farthest group member. This can reflect a relatively compact network- the community is connected.
Compactness: 0.5214795
Compactness is how spaced out, or bunched up the network is. The Death of Stalin Network is neither spaced-out or bunched up; because lower values represent ‘shorter’ distances in the network, this network very very slightly leans towards being less compact then spread out.
Network Domination (Eigenvector Centralization): 0.6742376
Eigenvector centralization is the measure of how dominated the network is by certain actors. In the case of this network, it is clear that the network is controlled by a few individuals.
In summary this is a moderately central network that is controlled by a few individuals. There are areas of density, and most individuals can get ‘around’ the network by only leaning on 2 or 3 associates for their connections- but there are some farther flung members of the network that require more assistance.
visIgraph(talked)Figure 1: Death of Stalin Movie Network with Character Cutpoints, visNetwork
Now lets look at the cutpoints. Cutpoints are where an individual is able to separate parts of the network- they can completly disconnect sections of the network from the strong componenet (or the core group). These sections can be large swaths of the group, or just a single individual- as in the case of the Radio Producer and Sergei (note: Sergei is not Sergei Kirov) For this group, those memebrs are: Josef Stalin, Radio Producer, NKVD Officer Delov, Field Marshal Zhukov, Nikita Khrushchev, Lavrenti Beria, and Georgy Malenkov. Some of these individuals make more sense than others.
att <- read.csv("dos party.csv", #make sure you are using a csv
header=TRUE,
check.names=TRUE)
V(talked)$party <- as.character(att$party[match(V(g)$name,att$name)])Lets talk about pre-defined subgroups- these are groups created by the groups that the individuals belong to. Soldiers in the army, members of political parties, family. These subgroups involve interactions, but are not created solely off of their direct interactions.
plot(talked, layout= layout_with_kk,
vertex.label.cex=0.5,
vertex.size = 10, vertex.shape = "sphere", vertex.label.color= "black", main= "Death of Stalin Movie Network")
colrs<-c("gold", "red", "blue", "grey") # We will use these colors in the legend; they match the colors in Figure 6.
legend(x=-1.5, y=-1.1, c("Bolshevik","Red Army", "NKVD", "None"), pch=21,
pt.bg=colrs, pt.cex=2, cex=.8, bty="n", ncol=1)
Figure 2: Death of Stalin Movie Networl by Group Affiliation, igraph
Above the group has been broken into 4 main character groups: members of the Bolshevik party, the Red Army, the People’s Commissariat for Internal Affairs (NKVD), and everyone else (none). Memebers of the “none” group include main characters such as Svetlana Stalin, as well as smaller roles- like Stalin’s maid with very few lines, Matryona Petrovna.
**Looking at the Subgroups
# Multiple plots with 1 row and 2 columns
## Subgroups
op<-par(mfrow = c(1,2))
plot(cw, talked,vertex.size = 10, vertex.color = "lightgray",vertex.shape = "sphere", vertex.label.cex=0.5, edge.color = "gray", edge.arrow.size = 0, edge.curved = 0, main = "Subgroups", layout = layout_with_kk)
##Figure 6: Group Affiliation
plot(talked,vertex.size = 10, vertex.shape = "sphere",
vertex.label.cex=0.5, edge.color = "gray", edge.arrow.size = 0, edge.curved = 0, main = "Group Affiliation", layout = layout_with_kk)
colrs<-c("gold", "red", "blue", "grey") # We will use these colors in the legend; they match the colors in Figure 6. # relates to the groups/legends
legend(x=-1.5, y=-1.1, c("Bolshevik","Red Army", "NKVD", "None"), pch=21, #relates to the legend
pt.bg=colrs, pt.cex=2, cex=.8, bty="n", ncol=1)
Figure 3: Death of Stalin Movie Network, Subgroups vs. Group Affiliations
Here we have the break down of the groups by sub group. The color of each node in the Subgraph Graph is inicitive of the individual’s strongest group ties. Group affiliation is shown to show who they ‘outwardly’ support.
degree(talked, mode = "total", loops=F)## Josef Stalin Lavrenti Beria Nikita Khrushchev
## 7 20 18
## Vyacheslav Molotov Maria Veniaminovna Sergei
## 10 5 1
## Field Marshal Zhukov Radio Producer Georgy Malenkov
## 12 5 16
## Svetlana Stalin Vasily Stalin Anastas Mikoyan
## 10 11 9
## Lazar Kaganovich Mezhnikov Nicolai Bulganin
## 12 2 9
## NKVD Officer Delov NKVD Officer Pervak Dr. Lukomsky
## 6 6 7
## Matryona Petrovna NKVD Officer Sliminov Polina Molotova
## 2 1 3
## Lidiya Timashuk Nina Khrushcheva NKVD Officer Aslanov
## 2 1 8
## NKVD Officer Kobulov NKVD Guard Ilyin Zhou Enlai
## 3 1 2
## Anatoly Tarasov Translator Zhukov's Chief of Staff
## 1 2 1
## Leonid Brezhnev Concert Director Khrustalyov
## 1 2 1
## Marshal Konev
## 1betweenness(talked, directed = F, normalized = T)## Josef Stalin Lavrenti Beria Nikita Khrushchev
## 0.055817100 0.297737043 0.202363666
## Vyacheslav Molotov Maria Veniaminovna Sergei
## 0.008948864 0.069823232 0.000000000
## Field Marshal Zhukov Radio Producer Georgy Malenkov
## 0.097863306 0.070643939 0.139863666
## Svetlana Stalin Vasily Stalin Anastas Mikoyan
## 0.008125902 0.229707792 0.003267045
## Lazar Kaganovich Mezhnikov Nicolai Bulganin
## 0.029459025 0.000000000 0.001318994
## NKVD Officer Delov NKVD Officer Pervak Dr. Lukomsky
## 0.063009560 0.053487253 0.010284392
## Matryona Petrovna NKVD Officer Sliminov Polina Molotova
## 0.000000000 0.000000000 0.000000000
## Lidiya Timashuk Nina Khrushcheva NKVD Officer Aslanov
## 0.000000000 0.000000000 0.001082251
## NKVD Officer Kobulov NKVD Guard Ilyin Zhou Enlai
## 0.000000000 0.000000000 0.000000000
## Anatoly Tarasov Translator Zhukov's Chief of Staff
## 0.000000000 0.000000000 0.000000000
## Leonid Brezhnev Concert Director Khrustalyov
## 0.000000000 0.000000000 0.000000000
## Marshal Konev
## 0.000000000eigen_centrality(talked, directed = F, weights = NULL)## $vector
## Josef Stalin Lavrenti Beria Nikita Khrushchev
## 0.44809841 1.00000000 0.98083285
## Vyacheslav Molotov Maria Veniaminovna Sergei
## 0.71325274 0.24005349 0.01020739
## Field Marshal Zhukov Radio Producer Georgy Malenkov
## 0.73334849 0.10412519 0.94119026
## Svetlana Stalin Vasily Stalin Anastas Mikoyan
## 0.75774749 0.59044380 0.68967428
## Lazar Kaganovich Mezhnikov Nicolai Bulganin
## 0.83158412 0.18841597 0.71514086
## NKVD Officer Delov NKVD Officer Pervak Dr. Lukomsky
## 0.34838725 0.33007735 0.53428184
## Matryona Petrovna NKVD Officer Sliminov Polina Molotova
## 0.14195712 0.09803002 0.26410127
## Lidiya Timashuk Nina Khrushcheva NKVD Officer Aslanov
## 0.17955023 0.09615107 0.64749061
## NKVD Officer Kobulov NKVD Guard Ilyin Zhou Enlai
## 0.26607126 0.03415241 0.06417200
## Anatoly Tarasov Translator Zhukov's Chief of Staff
## 0.05788122 0.06417200 0.05788122
## Leonid Brezhnev Concert Director Khrustalyov
## 0.07189017 0.03373984 0.09803002
## Marshal Konev
## 0.09226490
##
## $value
## [1] 10.20096
##
## $options
## $options$bmat
## [1] "I"
##
## $options$n
## [1] 34
##
## $options$which
## [1] "LA"
##
## $options$nev
## [1] 1
##
## $options$tol
## [1] 0
##
## $options$ncv
## [1] 0
##
## $options$ldv
## [1] 0
##
## $options$ishift
## [1] 1
##
## $options$maxiter
## [1] 1000
##
## $options$nb
## [1] 1
##
## $options$mode
## [1] 1
##
## $options$start
## [1] 1
##
## $options$sigma
## [1] 0
##
## $options$sigmai
## [1] 0
##
## $options$info
## [1] 0
##
## $options$iter
## [1] 2
##
## $options$nconv
## [1] 1
##
## $options$numop
## [1] 26
##
## $options$numopb
## [1] 0
##
## $options$numreo
## [1] 19closeness(talked, mode = "all", weights = NULL, normalized = T)## Josef Stalin Lavrenti Beria Nikita Khrushchev
## 0.5076923 0.6875000 0.6734694
## Vyacheslav Molotov Maria Veniaminovna Sergei
## 0.5156250 0.4852941 0.2820513
## Field Marshal Zhukov Radio Producer Georgy Malenkov
## 0.5892857 0.3882353 0.6346154
## Svetlana Stalin Vasily Stalin Anastas Mikoyan
## 0.5409836 0.5500000 0.5076923
## Lazar Kaganovich Mezhnikov Nicolai Bulganin
## 0.5593220 0.4230769 0.5000000
## NKVD Officer Delov NKVD Officer Pervak Dr. Lukomsky
## 0.4714286 0.5076923 0.5156250
## Matryona Petrovna NKVD Officer Sliminov Polina Molotova
## 0.4285714 0.4125000 0.4459459
## Lidiya Timashuk Nina Khrushcheva NKVD Officer Aslanov
## 0.4177215 0.4074074 0.4925373
## NKVD Officer Kobulov NKVD Guard Ilyin Zhou Enlai
## 0.4520548 0.3235294 0.3626374
## Anatoly Tarasov Translator Zhukov's Chief of Staff
## 0.3586957 0.3626374 0.3586957
## Leonid Brezhnev Concert Director Khrustalyov
## 0.3750000 0.3402062 0.4125000
## Marshal Konev
## 0.3928571metrics<-data.frame(id = V(talked)$name,
Degree = degree(talked,
mode="total",
loops=FALSE,
normalized = FALSE),
Betweenness = round(betweenness(talked,
directed = F,
weights = NULL,
normalized = T),
digits = 2),
Eigenvector = eigen_centrality(talked,
directed=F,
weights = NULL),
Closeness = round(closeness(talked,
mode="total",
weights = NULL,
normalized=T),
digits = 2))
DT::datatable(metrics %>%
arrange(desc(Degree))%>%
select(one_of(c("id","Degree", "Betweenness", "Eigenvector.vector", "Closeness"))),
class = 'cell-border stripe',
rownames = FALSE,
filter="top",
selection="multiple",
escape=FALSE,
options=list(scrollX=TRUE,
pageLength=10,
sDom='<"top">lrt<"bottom">ip')
)Table 1: Death of Stalin Movie Network, Character Centrality
Here we have an interactive table to explore the individuals of the network. Specifically we’re exploring for each node: degree, betweeness, and eigenvector, and closeness. Each can be defined as:
Degree: Degree is the measure of the total number of edges (relationships) connected to a particular vertex (or person). Degree centrality is the simplest measure of centrality, and can be used to measure how many relationships a particular person has within the network. Degree centrality is useful for finding very connected individuals, popular individuals, individuals who are likely to hold most information or individuals who can quickly connect with the wider network
Betweeness: Betweenness centrality measures the number of times a node lies on the shortest path between other nodes. Betweenness is useful for analyzing communication dynamics, but should be used with care. A high betweenness count could indicate someone holds authority over disparate clusters in a network, or just that they are on the periphery of both clusters. Betweeness centrality is useful for finding the individuals who influence the flow around a system.
Eigenvector: Eigenvector centrality measures a node’s influence based on the number of links it has to other nodes in the network. Eigenvector centrality then goes a step further by also taking into account how well connected a node is, and how many links their connections have, and so on through the network. By calculating the extended connections of a node, Eigenvector centrality can identify nodes with influence over the whole network, not just those directly connected to that particular node.
Closeness: Closeness centrality scores each node based on their ‘closeness’ to all other nodes in the network. Closeness centrality can help find good ‘broadcasters’, but in a highly-connected network, you will often find all nodes have a similar score. Closeness is useful for finding the individuals who are best placed to influence the entire network most quickly.
When playing with the table- you can enter more than one name into the id search function- that way you can compare two individuals who you think might be important to compare.
visIgraph(talked)Figure 4: Death of Stalin Movie Network, visNetwork
This network is interactive! Play around with it. You can zoom in and pull the nodes around to see who is connected with whom. Remeber the groups are Bolsheviks (yellow), Red Army (red), NKVD (blue), None (grey)
Now lets remove Stalin since he died early on in the movie, and it might be interesting to see who falls into his place naturally.
test1 <- delete_vertices(talked, "Josef Stalin")
plot(test1,vertex.size = 10, vertex.shape = "sphere",
vertex.label.cex=0.5, edge.color = "gray", edge.arrow.size = 0, edge.curved = 0, main = "Group Affiliation (Stalin Removed)", layout = layout_with_kk)
Figure 5: Death of Stalin Movie Network with the Group Affiliations after the removal of Josef Stalin
visIgraph(test1)Again, a cool network to play around with- zoom in, inspect the names and their placement.
## Lavrenti Beria Nikita Khrushchev Vyacheslav Molotov
## 19 17 9
## Maria Veniaminovna Sergei Field Marshal Zhukov
## 5 1 12
## Radio Producer Georgy Malenkov Svetlana Stalin
## 4 15 10
## Vasily Stalin Anastas Mikoyan Lazar Kaganovich
## 11 8 12
## Mezhnikov Nicolai Bulganin NKVD Officer Delov
## 2 9 6
## NKVD Officer Pervak Dr. Lukomsky Matryona Petrovna
## 6 7 1
## NKVD Officer Sliminov Polina Molotova Lidiya Timashuk
## 1 3 2
## Nina Khrushcheva NKVD Officer Aslanov NKVD Officer Kobulov
## 1 8 3
## NKVD Guard Ilyin Zhou Enlai Anatoly Tarasov
## 1 2 1
## Translator Zhukov's Chief of Staff Leonid Brezhnev
## 2 1 1
## Concert Director Khrustalyov Marshal Konev
## 2 1 1## Lavrenti Beria Nikita Khrushchev Vyacheslav Molotov
## 0.3219286034 0.2020361303 0.0049563172
## Maria Veniaminovna Sergei Field Marshal Zhukov
## 0.0999327957 0.0000000000 0.1058523746
## Radio Producer Georgy Malenkov Svetlana Stalin
## 0.0668682796 0.1366463454 0.0086501536
## Vasily Stalin Anastas Mikoyan Lazar Kaganovich
## 0.2364631336 0.0002520161 0.0313596070
## Mezhnikov Nicolai Bulganin NKVD Officer Delov
## 0.0000000000 0.0014040899 0.0653609831
## NKVD Officer Pervak Dr. Lukomsky Matryona Petrovna
## 0.0829749104 0.0111783154 0.0000000000
## NKVD Officer Sliminov Polina Molotova Lidiya Timashuk
## 0.0000000000 0.0000000000 0.0000000000
## Nina Khrushcheva NKVD Officer Aslanov NKVD Officer Kobulov
## 0.0000000000 0.0011520737 0.0000000000
## NKVD Guard Ilyin Zhou Enlai Anatoly Tarasov
## 0.0000000000 0.0000000000 0.0000000000
## Translator Zhukov's Chief of Staff Leonid Brezhnev
## 0.0000000000 0.0000000000 0.0000000000
## Concert Director Khrustalyov Marshal Konev
## 0.0000000000 0.0000000000 0.0000000000## $vector
## Lavrenti Beria Nikita Khrushchev Vyacheslav Molotov
## 1.000000000 0.984330544 0.698212252
## Maria Veniaminovna Sergei Field Marshal Zhukov
## 0.243015829 0.006267334 0.772495398
## Radio Producer Georgy Malenkov Svetlana Stalin
## 0.062353354 0.942907877 0.790713824
## Vasily Stalin Anastas Mikoyan Lazar Kaganovich
## 0.621558044 0.673586047 0.869242463
## Mezhnikov Nicolai Bulganin NKVD Officer Delov
## 0.193712875 0.744140380 0.365581216
## NKVD Officer Pervak Dr. Lukomsky Matryona Petrovna
## 0.340373198 0.560294069 0.100513186
## NKVD Officer Sliminov Polina Molotova Lidiya Timashuk
## 0.100513186 0.269630924 0.187883516
## Nina Khrushcheva NKVD Officer Aslanov NKVD Officer Kobulov
## 0.098938199 0.671922103 0.277097360
## NKVD Guard Ilyin Zhou Enlai Anatoly Tarasov
## 0.036745733 0.069456026 0.062474779
## Translator Zhukov's Chief of Staff Leonid Brezhnev
## 0.069456026 0.062474779 0.077645974
## Concert Director Khrustalyov Marshal Konev
## 0.030693630 0.100513186 0.094774675
##
## $value
## [1] 9.948943
##
## $options
## $options$bmat
## [1] "I"
##
## $options$n
## [1] 33
##
## $options$which
## [1] "LA"
##
## $options$nev
## [1] 1
##
## $options$tol
## [1] 0
##
## $options$ncv
## [1] 0
##
## $options$ldv
## [1] 0
##
## $options$ishift
## [1] 1
##
## $options$maxiter
## [1] 1000
##
## $options$nb
## [1] 1
##
## $options$mode
## [1] 1
##
## $options$start
## [1] 1
##
## $options$sigma
## [1] 0
##
## $options$sigmai
## [1] 0
##
## $options$info
## [1] 0
##
## $options$iter
## [1] 2
##
## $options$nconv
## [1] 1
##
## $options$numop
## [1] 24
##
## $options$numopb
## [1] 0
##
## $options$numreo
## [1] 20## Lavrenti Beria Nikita Khrushchev Vyacheslav Molotov
## 0.6808511 0.6666667 0.4923077
## Maria Veniaminovna Sergei Field Marshal Zhukov
## 0.4848485 0.2711864 0.5925926
## Radio Producer Georgy Malenkov Svetlana Stalin
## 0.3678161 0.6274510 0.5423729
## Vasily Stalin Anastas Mikoyan Lazar Kaganovich
## 0.5517241 0.4848485 0.5614035
## Mezhnikov Nicolai Bulganin NKVD Officer Delov
## 0.4210526 0.5000000 0.4705882
## NKVD Officer Pervak Dr. Lukomsky Matryona Petrovna
## 0.5079365 0.5161290 0.4102564
## NKVD Officer Sliminov Polina Molotova Lidiya Timashuk
## 0.4102564 0.4444444 0.4155844
## Nina Khrushcheva NKVD Officer Aslanov NKVD Officer Kobulov
## 0.4050633 0.4923077 0.4507042
## NKVD Guard Ilyin Zhou Enlai Anatoly Tarasov
## 0.3232323 0.3636364 0.3595506
## Translator Zhukov's Chief of Staff Leonid Brezhnev
## 0.3636364 0.3595506 0.3764706
## Concert Director Khrustalyov Marshal Konev
## 0.3368421 0.4102564 0.3902439Table 2: Death of Stalin Movie Network after the removal of Josef Stalin, Character Centrality
The group actually doesnt change much. Lavrenit Beria remains in control of the group group with the highest eigenvector. Just looking at the top few, the group remains controlled by the same central group as before. Field Marshal Zhukov becomes a bit more influential over the group, but mostly the group just becomes smaller and it becomes easier for core individuals to move around the group.
Bottomline: although since Stalin has been dead for the majority of the movie, it really doesn’t change much of the layout of the group.
To make it more interesting we can remove Lavrenti Beria to try to get an idea of what the group looked like after Stalin’s death and Beria’s unceremonious demise (or maybe ceremonious depending on how you lookat the party).
test2 <- delete_vertices(test1, "Lavrenti Beria")
plot(test2, vertex.size = 10, vertex.shape = "sphere",
vertex.label.cex=0.5, edge.color = "gray", edge.arrow.size = 0, edge.curved = 0, main = "Group Affiliation (Stalin Removed)", layout = layout_with_kk)
Figure 7: Death of Stalin Movie Network with the Group Affiliations after the removal of Josef Stalin and Lavrenti Beria, igraph
The removal of Lavrentia Beria is slightly more interesting- clearly cutting off a few Comarades (specifically: Matryona Petrovna, NKVD Officer Sliminov, and Khrustalyov- it’s not clear that all 3 are cut off in Figure 7, but more clear in Figure 8 below)
visIgraph(test2)visIgraph(test2)Lets look at our new cutpoints: Vasily Stalin, Dr. Lukomsky, Svetlana Stalin, Vyacheslav Molotov, Lazar Kaganovich, Georgy Malenkov, and Maria Vaniaminovna. These people all have the ability to isolate parts of the network.
degree(test2, mode = "total", loops=F)## Nikita Khrushchev Vyacheslav Molotov Maria Veniaminovna
## 16 8 4
## Sergei Field Marshal Zhukov Radio Producer
## 1 11 4
## Georgy Malenkov Svetlana Stalin Vasily Stalin
## 14 9 10
## Anastas Mikoyan Lazar Kaganovich Mezhnikov
## 7 11 2
## Nicolai Bulganin NKVD Officer Delov NKVD Officer Pervak
## 8 6 5
## Dr. Lukomsky Matryona Petrovna NKVD Officer Sliminov
## 6 0 0
## Polina Molotova Lidiya Timashuk Nina Khrushcheva
## 2 1 1
## NKVD Officer Aslanov NKVD Officer Kobulov NKVD Guard Ilyin
## 7 2 1
## Zhou Enlai Anatoly Tarasov Translator
## 2 1 2
## Zhukov's Chief of Staff Leonid Brezhnev Concert Director
## 1 1 2
## Khrustalyov Marshal Konev
## 0 1betweenness(test2, directed = F, normalized = T)## Nikita Khrushchev Vyacheslav Molotov Maria Veniaminovna
## 0.2751459293 0.0093394777 0.0871684588
## Sergei Field Marshal Zhukov Radio Producer
## 0.0000000000 0.1206298003 0.0634408602
## Georgy Malenkov Svetlana Stalin Vasily Stalin
## 0.1495545315 0.0112903226 0.2179211470
## Anastas Mikoyan Lazar Kaganovich Mezhnikov
## 0.0003072197 0.0730670763 0.0000000000
## Nicolai Bulganin NKVD Officer Delov NKVD Officer Pervak
## 0.0017409114 0.0627956989 0.0810035842
## Dr. Lukomsky Matryona Petrovna NKVD Officer Sliminov
## 0.0086021505 0.0000000000 0.0000000000
## Polina Molotova Lidiya Timashuk Nina Khrushcheva
## 0.0000000000 0.0000000000 0.0000000000
## NKVD Officer Aslanov NKVD Officer Kobulov NKVD Guard Ilyin
## 0.0014336918 0.0000000000 0.0000000000
## Zhou Enlai Anatoly Tarasov Translator
## 0.0000000000 0.0000000000 0.0000000000
## Zhukov's Chief of Staff Leonid Brezhnev Concert Director
## 0.0000000000 0.0000000000 0.0000000000
## Khrustalyov Marshal Konev
## 0.0000000000 0.0000000000eigen_centrality(test2, directed = F, weights = NULL)## $vector
## Nikita Khrushchev Vyacheslav Molotov Maria Veniaminovna
## 1.000000000 0.684058238 0.156731497
## Sergei Field Marshal Zhukov Radio Producer
## 0.006202098 0.769312469 0.053511371
## Georgy Malenkov Svetlana Stalin Vasily Stalin
## 0.970290980 0.794345746 0.608322435
## Anastas Mikoyan Lazar Kaganovich Mezhnikov
## 0.663785335 0.873535016 0.228361507
## Nicolai Bulganin NKVD Officer Delov NKVD Officer Pervak
## 0.743689438 0.417593508 0.274392022
## Dr. Lukomsky Matryona Petrovna NKVD Officer Sliminov
## 0.540579084 0.000000000 0.000000000
## Polina Molotova Lidiya Timashuk Nina Khrushcheva
## 0.195186438 0.101244829 0.115902427
## NKVD Officer Aslanov NKVD Officer Kobulov NKVD Guard Ilyin
## 0.661185271 0.205067610 0.048400101
## Zhou Enlai Anatoly Tarasov Translator
## 0.079749169 0.070506047 0.079749169
## Zhukov's Chief of Staff Leonid Brezhnev Concert Director
## 0.070506047 0.089165183 0.024367659
## Khrustalyov Marshal Konev
## 0.000000000 0.112459080
##
## $value
## [1] 8.627947
##
## $options
## $options$bmat
## [1] "I"
##
## $options$n
## [1] 32
##
## $options$which
## [1] "LA"
##
## $options$nev
## [1] 1
##
## $options$tol
## [1] 0
##
## $options$ncv
## [1] 0
##
## $options$ldv
## [1] 0
##
## $options$ishift
## [1] 1
##
## $options$maxiter
## [1] 1000
##
## $options$nb
## [1] 1
##
## $options$mode
## [1] 1
##
## $options$start
## [1] 1
##
## $options$sigma
## [1] 0
##
## $options$sigmai
## [1] 0
##
## $options$info
## [1] 0
##
## $options$iter
## [1] 2
##
## $options$nconv
## [1] 1
##
## $options$numop
## [1] 24
##
## $options$numopb
## [1] 0
##
## $options$numreo
## [1] 19closeness(test2, mode = "all", weights = NULL, normalized = T)## Warning in closeness(test2, mode = "all", weights = NULL, normalized =
## T): At centrality.c:2784 :closeness centrality is not well-defined for
## disconnected graphs## Nikita Khrushchev Vyacheslav Molotov Maria Veniaminovna
## 0.2262774 0.2012987 0.1987179
## Sergei Field Marshal Zhukov Radio Producer
## 0.1550000 0.2167832 0.1791908
## Georgy Malenkov Svetlana Stalin Vasily Stalin
## 0.2214286 0.2094595 0.2108844
## Anastas Mikoyan Lazar Kaganovich Mezhnikov
## 0.2000000 0.2123288 0.1925466
## Nicolai Bulganin NKVD Officer Delov NKVD Officer Pervak
## 0.2026144 0.2026144 0.2012987
## Dr. Lukomsky Matryona Petrovna NKVD Officer Sliminov
## 0.2052980 0.0312500 0.0312500
## Polina Molotova Lidiya Timashuk Nina Khrushcheva
## 0.1901840 0.1791908 0.1890244
## NKVD Officer Aslanov NKVD Officer Kobulov NKVD Guard Ilyin
## 0.2012987 0.1925466 0.1722222
## Zhou Enlai Anatoly Tarasov Translator
## 0.1791908 0.1781609 0.1791908
## Zhukov's Chief of Staff Leonid Brezhnev Concert Director
## 0.1781609 0.1823529 0.1712707
## Khrustalyov Marshal Konev
## 0.0312500 0.1856287metrics<-data.frame(id = V(test2)$name,
Degree = degree(test2,
mode="total",
loops=FALSE,
normalized = FALSE),
Betweenness = round(betweenness(test2,
directed = F,
weights = NULL,
normalized = T),
digits = 2),
Eigenvector = eigen_centrality(test2,
directed=F,
weights = NULL),
Closeness = round(closeness(test2,
mode="total",
weights = NULL,
normalized=T),
digits = 2))## Warning in closeness(test2, mode = "total", weights = NULL, normalized
## = T): At centrality.c:2784 :closeness centrality is not well-defined for
## disconnected graphsDT::datatable(metrics %>%
arrange(desc(Degree))%>%
select(one_of(c("id","Degree", "Betweenness", "Eigenvector.vector", "Closeness"))),
class = 'cell-border stripe',
rownames = FALSE,
filter="top",
selection="multiple",
escape=FALSE,
options=list(scrollX=TRUE,
pageLength=10,
sDom='<"top">lrt<"bottom">ip')
)Despite what the movie briefly lead us to believe, Nikita Khrushchev takes control over Georgy Malenkov! He is now has the most control over the network (demonstrated by his eigenvector centrality score) and his general interconnectivity.
** Conclusion: