Исходный пункт назначения

Question

Я ищу способ добавить больше информации к этому сюжету Origin-Destinatio. Сначала я хотел бы добавить метку к каждой из зон (исходная / конечная). Во-вторых, я также хотел бы нанести карту в качестве фона и, возможно, добавить цветовой градиент к графику.

Примеры наборов данных включены в пакет stplanR. Я использую другой набор данных. Это мой код на данный момент:

      library(stplanr)

library(tidyverse)

library(sp)

Cents <- read.table(...)

str(Cents)

head(Cents)

coords <- Cents[,c("lat","lon")]

data <- as.data.frame( Cents[,1])

crs    <- CRS("+init=epsg:28992") # proj4string of coords

Centssp <- SpatialPointsDataFrame(coords      = coords,
                               data        = data, 
                               proj4string = crs)

Flows <- read.table(...)

l <- od2line(flow = Flows, zones = Centssp)
l
plot(l, lwd = l$MotorisedTraffic / 5)`

Заранее спасибо!

изменить: код с примерами наборов данных

      l <- od2line(flow = flow, zones = cents)
l
# remove lines with no length

plot(l, lwd = l$All / 5 )```

Answer 1

Чтобы добавить карту к фону, попробуйте

      plot(l, lwd = l$All / 5 )
plot(map, add=T) #add this for a map