In liao961120/railwayViz: Visualizing Urbanization through Railway Data

library(knitr)
library(svglite)
library(railwayViz)
## Global options
options(max.print="75")
knitr::opts_chunk$set(
    echo = FALSE,
    fig.dim = c(5, 6.8),
    message = FALSE,
    warning = FALSE,
    comment = NA,
    dev = "svglite",
    dpi = 300,
    out.width = "100%"
)

ori_dir <- getwd()
setwd('../../data-raw')
source('shp_read.R')
setwd(ori_dir)

地圖指標說明

承接鄉村、都市進出站人數比較

指標：$\frac{出站人數~-~進站人數}{出站人數~+~進站人數}$

• nye_idx: 除夕當日的指標

• avg_wday_idx: 所有工作日的指標之平均。工作日的定義是星期一至四，並且非國定假日、彈性放假或颱風天的日子。這個定義是為了控制會大幅影響搭乘臺鐵人數的因素。決定是否為工作日的程式碼託管於 GitHub。

• urban_idx: avg_wday_idx - nye_idx。這個指標拿平日和除夕比較，其數值越小，代表該地在除夕時返鄉人潮最明顯，因此推論是人口外流的地區；反之，若越大，代表其為人口移入區 (正在都市化)。

地圖: 2018

pl_nye + labs(title = '2018 除夕 臺鐵進出站人數狀況')
pl_avg + labs(title = '2018 工作日 臺鐵進出站人數狀況')
pl_urban + labs(title = '2018 各地 (車站) 都市化程度指標')

liao961120/railwayViz documentation built on June 9, 2019, 2:43 a.m.