{ggflowchart} test

library(ggflowchart)
library(tidyverse)

dat <- read.csv(text = "from,to
Let's get started,The end
Let's get started,Another ending
Another start,The end")

ggflowchart(dat)

dat2 <- read.csv(text = "from,to,type
Another start,The end,One route
Let's get started,The end,Another
Let's get started,Another ending,Hmmm
Another ending,Really this time,Hmmm") |>
  mutate(name = 1:n() |> as.character())

To do: add colours below…

ggflowchart(dat2, node_data = dat2, horizontal = TRUE)