library(tidyverse)
library(tidygraph)
library(ggraph)

relations <- as_tbl_graph(
  tribble(
    ~from, ~to, ~method, ~data, ~attitude,
    "statistics", "math", "probability", NA, "detachment from reality",
    "statistics", "psychology", "hypothesis testing", "WEIRD experiments", "internal turmoil",
    "statistics", "economics", "instrumental variables", "government statistics", "gotta identify my linear model",
    "statistics", "finance", "times series but with AI", "stocks", "$$$",
    "statistics", "data science", "anything actually practical", "dirty", "can do",
    "statistics", "ecology", "HMMs and GAMS", "animal stuff", "social skills",
    "statistics", "biostatistics", "GWAS", "RNA Seq", "save the world"
  )
)

ggraph(relations) +
  geom_node_text(aes(label = name), size = 5) +
  geom_edge_fan(
    aes(label = method),
    angle_calc = "along",
    label_dodge = unit(2.5, 'mm'),
    arrow = arrow(length = unit(4, 'mm')),
    start_cap = circle(8, 'mm'),
    end_cap = circle(8, 'mm')
  ) +
  theme_graph()