data("nuts2006")
# Create a link layer
head(twincities)
# Select links from Ireland (IE)
twincitiesIE <- twincities[substr(twincities$i,1,2)=="IE", ]
twincities.spdf <- getLinkLayer(spdf = nuts2.spdf, df = twincitiesIE[,1:2])
# Plot the links
plot(nuts2.spdf, col = "#6C6870")
plot(twincities.spdf, col = "#F78194", add = TRUE)
Run the code above in your browser using DataLab