# NOT RUN {
require(tidygraph)
gr <- create_notable('meredith') %>%
mutate(group = sample(letters[1:4], n(), TRUE))
ggraph(gr) +
geom_node_voronoi(aes(fill = group, colour = group), alpha = 0.3) +
geom_edge_link(alpha = 0.3) +
geom_node_point()
# Use max.radius to make the tesselation more "node"-like
ggraph(gr) +
geom_node_voronoi(aes(fill = group, colour = group), alpha = 0.3, max.radius = 1) +
geom_edge_link(alpha = 0.3) +
geom_node_point()
# }
Run the code above in your browser using DataLab