Create rail timetable graphs in R using ggplot2

merwedelingelijn-timetable.csv

timetable-graph.R

library(ggplot2)

readfile <- read.csv("merwedelingelijn-timetable.csv", check.names = FALSE)

# get train series labels, removes first two columns
train_series <- names(readfile)
train_series <- train_series[-1]
train_series <- train_series[-1]

# get number of train stops for each train at each station
# id_order contains stops of each train series
# location_order maps each stop to the train series id
# times map the times of the stops to the train series id
id_order <- c()
distances_order <- c()
times <- c()
for (i in seq_along(train_series)) {
  station_number <- 1L
  for (station in readfile$Stations) {
    if (readfile[station_number, i + 2] != "") {
      id_order <- append(id_order, train_series[i])
      times <- append(times,
                      paste("2024-03-11", readfile[station_number, i + 2]))
      distances_order <- append(distances_order, readfile[station_number, 2L])
    }
    station_number <- station_number + 1L
  }
}

time <- structure(as.POSIXct(times),
                  class = c("POSIXct", "POSIXt"), tzone = "CET")

df <- data.frame(series = id_order,
                 times = time,
                 distances = distances_order)

ggplot(df, aes(x = times, y = distances, group = series)) +
  geom_line(aes(colour = series)) +
  scale_y_continuous(
    breaks = unique(readfile$Distance), labels = unique(readfile$Stations)
  ) +
  scale_x_datetime(breaks = "30 min", date_labels = "%H:%M") +
  ggtitle("MerwedeLingelijn trains") +
  labs(colour = "Train series", y = "Station", x = "Time")