library(jsonlite)
library(igraph)

# Define edges as a data frame
edges <- data.frame(
  from = c("A", "A", "B", "C"),
  to   = c("B", "C", "D", "E")
)

# Create directed graph
g <- graph_from_data_frame(edges, directed = TRUE)

# Plot
plot(g)