# install.packages("igraph")  # run once if needed
library(igraph)


# 1) Read CSV (change filename as needed)
edges <- read.csv("map.csv", stringsAsFactors = FALSE)

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

# 3) Export directly to PDF
pdf("graph.pdf", width = 10, height = 8)

plot(
  g,
  layout = layout_as_tree(g),
  vertex.size = 10,
  vertex.label.cex = 0.5,
  edge.arrow.size = 0.6
)

dev.off()