graphe

Code R de l'exemple ggplot2

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

## Friendships named in 1958, one tie per pair whoever named whom.
boys <- sort(unique(c(highschool$from, highschool$to)))
ties <- highschool |>
  filter(year == 1958) |>
  select(from, to)
friends <- graph_from_data_frame(ties, vertices = data.frame(name = boys)) |>
  as_undirected(mode = "collapse")

set.seed(1)
p <- ggraph(friends, layout = "stress") +
  geom_edge_link(colour = "#a6a6a6", width = 0.3) +
  geom_node_point(size = 1.6, colour = "#9b2367") +
  labs(title = "All but one of the 70 boys belong to one network",
       subtitle = "Friendships named in a high school in 1958, one line per pair",
       caption = "Data: Coleman 1964, via the ggraph R package") +
  theme_lex_viz(grid = "", arrows = "") +
  theme(axis.text = element_blank(), axis.title = element_blank())