A directed network visualization for transportation systems where stations are displayed as labeled nodes and train/bus routes as directed edges. Edges display departure times, arrival times, and route identifiers. Designed for visualizing timetables, route maps, and connection patterns in rail, bus, or flight networks. This static version focuses on clear, readable presentation without interactive repositioning.
#' anyplot.ai
#' network-transport-static: Static Transport Network Diagram
#' Library: ggplot2 3.5.1 | R 4.4.1
#' Quality: 88/100 | Created: 2026-05-18
library(ggplot2)
library(dplyr)
library(tidyr)
library(ragg)
library(grid)
set.seed(42)
# --- Theme tokens -----------------------------------------------------------
THEME <- Sys.getenv("ANYPLOT_THEME", "light")
PAGE_BG <- if (THEME == "light") "#FAF8F1" else "#1A1A17"
ELEVATED_BG <- if (THEME == "light") "#FFFDF6" else "#242420"
INK <- if (THEME == "light") "#1A1A17" else "#F0EFE8"
INK_SOFT <- if (THEME == "light") "#4A4A44" else "#B8B7B0"
INK_MUTED <- if (THEME == "light") "#6B6A63" else "#A8A79F"
IMPRINT <- c(
"#009E73", # 1 — regional (first categorical series)
"#C475FD", # 2 — express
"#4467A3" # 3 — local
)
# --- Data: Regional rail network with 12 stations and 30 routes ----------------
stations <- data.frame(
id = 1:12,
label = c("Central", "North Hub", "West Gate", "East Plaza", "South Terminal",
"Airport", "Harbor", "Tech Park", "Suburb 1", "Suburb 2", "Suburb 3", "Junction"),
x = c(5, 5, 2, 8, 5, 8, 2, 8, 3, 7, 3, 5),
y = c(6, 9, 6, 6, 3, 9, 3, 3, 8, 8, 1, 5),
stringsAsFactors = FALSE
)
routes <- data.frame(
source_id = c(1, 1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 8, 9, 10, 11),
target_id = c(2, 3, 4, 5, 6, 6, 9, 11, 7, 1, 9, 1, 6, 8, 12, 1, 7, 11, 2, 4, 8, 3, 5, 1, 4, 5, 12, 2, 6, 5),
route_id = c("RE01", "RE02", "RE03", "RE04", "RE05", "EX01", "RE06", "RE07", "LO01", "LO02", "RE08", "LO03", "RE09", "EX02", "LO04", "RE10", "RE11", "LO05", "RE12", "EX03", "EX04", "LO06", "LO07", "LO08", "RE13", "RE14", "EX05", "RE15", "RE16", "RE17"),
departure_time = c("08:15", "08:30", "08:45", "09:00", "09:30", "07:45", "09:15", "10:00", "08:00", "09:45", "10:15", "10:30", "11:00", "11:15", "11:30", "12:00", "12:30", "13:00", "06:45", "07:15", "08:15", "13:30", "14:00", "14:30", "15:00", "15:30", "16:00", "16:30", "17:00", "17:30"),
arrival_time = c("08:45", "09:00", "09:30", "09:45", "10:15", "08:30", "10:00", "10:45", "08:35", "10:30", "11:00", "11:00", "11:45", "12:00", "12:15", "12:45", "13:15", "13:45", "07:30", "08:00", "09:00", "14:15", "14:45", "15:15", "15:45", "16:15", "16:45", "17:15", "17:45", "18:15"),
route_type = c("Regional", "Regional", "Regional", "Regional", "Regional", "Express", "Regional", "Regional", "Local", "Local", "Regional", "Local", "Regional", "Express", "Local", "Regional", "Regional", "Local", "Regional", "Express", "Express", "Local", "Local", "Local", "Regional", "Regional", "Express", "Regional", "Regional", "Regional"),
stringsAsFactors = FALSE
)
# Map route types to colors
route_colors <- data.frame(
route_type = c("Regional", "Express", "Local"),
color = IMPRINT,
stringsAsFactors = FALSE
)
routes <- left_join(routes, route_colors, by = "route_type")
# Merge station coordinates into routes
routes <- left_join(routes, stations %>% select(id, x, y), by = c("source_id" = "id")) %>%
rename(x_start = x, y_start = y) %>%
left_join(stations %>% select(id, x, y), by = c("target_id" = "id")) %>%
rename(x_end = x, y_end = y)
# Calculate midpoint for edge labels and format label text
routes <- routes %>%
mutate(
x_mid = (x_start + x_end) / 2,
y_mid = (y_start + y_end) / 2,
label = paste0(route_id, " | ", departure_time, " → ", arrival_time)
)
# --- Custom theme -----------------------------------------------------------
anyplot_theme <- theme_minimal(base_size = 14) +
theme(
plot.background = element_rect(fill = PAGE_BG, color = PAGE_BG),
panel.background = element_rect(fill = PAGE_BG, color = NA),
panel.grid = element_blank(),
panel.border = element_blank(),
axis.title = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank(),
plot.title = element_text(color = INK, size = 24, hjust = 0.5, margin = margin(b = 20)),
legend.background = element_rect(fill = ELEVATED_BG, color = INK_SOFT),
legend.text = element_text(color = INK_SOFT, size = 16),
legend.title = element_text(color = INK, size = 18),
plot.margin = margin(20, 20, 20, 20)
)
# --- Plot --------------------------------------------------------------------
p <- ggplot() +
# Draw edges with arrows
geom_segment(
data = routes,
aes(x = x_start, y = y_start, xend = x_end, yend = y_end, color = route_type),
arrow = arrow(length = unit(0.3, "cm"), type = "closed", angle = 20),
linewidth = 0.8,
alpha = 0.7
) +
# Draw edge labels with background
geom_label(
data = routes,
aes(x = x_mid, y = y_mid, label = label),
size = 3.5,
color = INK,
fill = ELEVATED_BG,
label.padding = unit(0.3, "lines"),
label.size = 0.3,
label.r = unit(0.15, "lines"),
alpha = 0.85
) +
# Draw stations as nodes
geom_point(
data = stations,
aes(x = x, y = y),
size = 8,
color = INK_SOFT,
fill = PAGE_BG,
stroke = 2,
shape = 21
) +
# Draw station labels with subtle background
geom_label(
data = stations,
aes(x = x, y = y, label = label),
size = 4.5,
color = INK,
fill = ELEVATED_BG,
label.padding = unit(0.4, "lines"),
label.size = 0.2,
vjust = -1.2,
hjust = 0.5,
alpha = 0.9
) +
# Scale colors for route types
scale_color_manual(
name = "Route Type",
values = c("Regional" = IMPRINT[1], "Express" = IMPRINT[2], "Local" = IMPRINT[3])
) +
coord_fixed(ratio = 1) +
labs(title = "network-transport-static · r · ggplot2 · anyplot.ai") +
anyplot_theme
# --- Save -------------------------------------------------------------------
ggsave(
filename = sprintf("plot-%s.png", THEME),
plot = p,
device = ragg::agg_png,
width = 16,
height = 9,
units = "in",
dpi = 300
)
Part of Static Transport Network Diagram on anyplot.ai.