使用Leaflet绘制上海地铁地图

library(leaflet)nlibrary(data.table)nlibrary(dplyr)nstations <- fread('https://raw.githubusercontent.com/jeevanyue/jeevanyue.github.io/master/data/stations.csv',encoding='UTF-8')nnstations