R script for drawing the subway lines in Seoul