# create data
markers <- data.frame(
lat=c(39,47,53,40,53),
lon=c(-5, 2,-8,-8,-1),
name=c("m1","m2","m3","m4","m5")
)
links <- data.frame(
source=c("m4","m1","m2","m5"),
target=c("m1","m2","m5","m3"),
num=1:4
)
# create map
map <- create_map()
map <- add_markers(map, markers, name="name", color="name", markerCluster=FALSE)
map <- add_links(map, links, color="num")
# \donttest{
# plot map
plot(map)
# }
Run the code above in your browser using DataLab