Nothing
pause <- function() {}
### The Zachary Karate club network
karate <- make_graph("Zachary")
summary(karate)
pause()
### Create a layout that is used from now on
karate$layout <- layout_nicely(karate)
plot(karate)
pause()
### Run cohesive blocking on it
cbKarate <- cohesive_blocks(karate)
cbKarate
pause()
### Plot the results and all the groups
plot(cbKarate, karate)
pause()
### This is a bit messy, plot them step-by-step
### See the hierarchy tree first
hierarchy(cbKarate)
plot_hierarchy(cbKarate)
## Plot the first level, blocks 1 & 2
plot(cbKarate, karate,
mark.groups = blocks(cbKarate)[1:2 + 1],
col = "cyan"
)
pause()
### The second group is simple, plot its more cohesive subgroup
plot(cbKarate, karate, mark.groups = blocks(cbKarate)[c(2, 5) + 1], col = "cyan")
pause()
### The first group has more subgroups, plot them
sub1 <- blocks(cbKarate)[parent(cbKarate) == 1]
sub1
plot(cbKarate, karate, mark.groups = sub1)
pause()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.