réseau

Code R de l'exemple ggplot2

library(ggplot2)
library(igraph)
library(ggraph)

## One component, the club's members, set in correspondence with itself:
## a line joins two members who met outside the club.
data("karate", package = "igraphdata")
club <- upgrade_graph(karate)
V(club)$faction <- ifelse(V(club)$Faction == 1, "Mr Hi's faction", "John A's faction")

set.seed(3)
p <- ggraph(club, layout = "stress") +
  geom_edge_link(colour = "#a6a6a6", width = 0.3) +
  geom_node_point(aes(colour = faction), size = 2.4) +
  scale_colour_manual(values = unname(lex_colors[c("plum", "blue")]), name = NULL) +
  labs(title = "The 34 members of a karate club split into two factions",
       subtitle = "A line joins two members who met outside the club, 1970–1972",
       caption = "Data: Zachary 1977, via the igraphdata R package") +
  theme_lex_viz(grid = "", arrows = "") +
  theme(axis.text = element_blank(), axis.title = element_blank())