Maps of UK Stations

Map of stations in the UK and Atlantis

It looks like, with this dataset, some strange things are occuring at sea and to the east………..

rm(list = ls())
setwd("C:/Users/Mike/Dropbox/Repositories/courses/09_DevelopingDataProducts")

library(leaflet)

download.file("https://groups.google.com/group/openraildata-talk/attach/1d323d16f5e32ffa/ukrail_locations.csv.zip?part=0.1&authuser=0", 
                     destfile = "TrainData",
                     cacheOK = TRUE,
              mode="wb")

unzip("TrainData")
TrainData <- read.csv("ukrail_locations.csv")
RowsWithLatInfo <- which(TrainData$latitude != "null")
StationData <- TrainData[RowsWithLatInfo,]

leaflet(StationData) %>% addTiles() %>%
  addCircles(lng = ~as.numeric(levels(StationData$longitude))[StationData$longitude],
                                    lat = ~as.numeric(levels(StationData$latitude))[StationData$latitude],
             popup=as.character(StationData$description))