# NOT RUN {
sample_affiliation(c(10, 12), 0.25) %>% ggraph::ggraph() +
ggraph::geom_edge_fan(ggplot2::aes(alpha = stat(index)), show.legend = FALSE) +
ggraph::geom_node_point(ggplot2::aes(size = 5))
# }
Run the code above in your browser using DataLab