create_notable('zachary') %>%
activate(nodes) %>%
mutate(group = as.factor(group_infomap())) %>%
ggraph(layout = 'kk') +
geom_edge_fan(width=.2) +
geom_node_point(aes(color = group), size = 5) +
theme_graph()
Why did the nearsighted man fall in the well?
He couldn’t see that well!
Options:
Social networks are much more interesting!