发帖
雷达卡
使用Leaflet绘制上海地铁地图 https://segmentfault.com/a/1190000006198744
第一眼看到这帖子对我触动很大，原来R还可以画地铁图，我得学学，于是想如法炮制出南京地铁图，随着学习的深入，发现原帖绘图函数只能绘制一条线路图，不能画任意站点，不能画任意线路，用帖后面的全路线图的循环后，写的函数就废了。
对原帖中的函数加以改进，可以画任意1条或多条线路，可以画任意1个或多个站点，可以画任意线路并指定站点。
原始文件与代码在附件中，下面是效果图：
Draw(l.no = "S8")
Draw(l.no = c(1, "S8"))
Draw(station = "新街口站")
Draw(station = c("新街口站", "南京南站", 3))
Draw(l.no = 4, station = 2)
Draw(l.no = "S8", station = "新街口站")
Draw(l.no = c(1, 2, 3), station = c(4, "胜太西路站"))
Draw(l.no = c(2, 4), station = c("南京站","南京南站"))
京公网安备 11010802022788号
