参考贴： JeevanYue
使用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("南京站","南京南站"))