Title | Author | Date | Analytics | ||||||
---|---|---|---|---|---|---|---|---|---|
MTR Metro Development Over Time 港鐵路線圖 |
Fung YIP |
04 Feb 2017 |
|
This repository is created to visualise the development of MTR stations in Hong Kong since 1910 based on the tables available on Wiki https://en.wikipedia.org/wiki/List_of_MTR_stations.
The first railway was to connect between Mainland China and Hong Kong and then there was a development of Kowloon side area in the late 70s. Hong Kong Island witnessed the expansion of MTR stations later in the 80s.
Development of MTR Stations over time
####2.1 Using Web Scraping technique and Geocoding in order to identify station locations.
Wiki https://en.wikipedia.org/wiki/List_of_MTR_stations
library(tidyverse)
library(ggmap)
library(gganimate)
#Data Import
mtr <- read_csv("./DataIn/HK_POI_MTR.csv")
#MTR Adddress Geocoding
names(mtr)
head(mtr)
mtr_address<-mtr$Address
x<-geocode(mtr_address)
mydata<-cbind(mtr,x)
write_csv(mydata,"./DataIn/HK_POI_MTR_geo.csv")
mydata <- read_csv("./DataIn/HK_POI_MTR_geo.csv")
####2.2 Data Viz
#Get Hong Kong Map
HK_map_color = get_googlemap(center = "Hong Kong", maptype = "roadmap",
zoom = 11, size = c(640, 420), color = "color")
HK_map_bw = get_googlemap(center = "Hong Kong", maptype = "roadmap",
zoom = 11, size = c(640, 420), color = "bw")
MTROverTime = function(city_map){
ggmap(city_map, extent = "device") +
geom_point(data = mydata,
aes(x = lon, y = lat, frame = Opened, cumulative = TRUE),
color = "blue", size = 3)
}
plot <- MTROverTime(HK_map_color)
plot
gganimate(plot,"./DataOut/MTRMapOverTime.gif")