réseau bipartite

Code R de l'exemple ggplot2

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

## Meadows on one side, plant species on the other: a link wherever the
## species was recorded in the meadow.
data(dune)
links <- as.data.frame(as.table(as.matrix(dune))) |>
  filter(Freq > 0) |>
  transmute(meadow = paste("Meadow", Var1), species = as.character(Var2),
            common = species == "Scorautu")
nodes <- tibble(name = c(unique(links$meadow), colnames(dune)),
                type = name %in% colnames(dune))
plants <- graph_from_data_frame(links, vertices = nodes, directed = FALSE)

p <- ggraph(plants, layout = "bipartite") +
  geom_edge_link(aes(edge_colour = common, edge_alpha = common), edge_width = 0.35) +
  geom_node_point(aes(shape = type), size = 1.6, colour = "#535353") +
  annotate("text", x = 16.75, y = c(1.07, -0.07), label = c("20 meadows", "30 species"),
           size = 3, colour = "#535353") +
  scale_edge_colour_manual(values = c(`FALSE` = "#a6a6a6", `TRUE` = "#9b2367")) +
  scale_edge_alpha_manual(values = c(`FALSE` = 0.5, `TRUE` = 1)) +
  scale_y_continuous(expand = expansion(add = 0.1)) +
  labs(title = "One species grows in 18 of the 20 meadows",
       subtitle = "Dutch dune meadows; in plum, the links of *Scorzoneroides autumnalis*",
       caption = "Data: Jongman et al. 1987, via the vegan R package") +
  theme_lex_viz(grid = "", arrows = "") +
  theme(legend.position = "none", axis.text = element_blank(), axis.title = element_blank())