0

我正在寻找一种方法来向这个 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 )```
4

1 回答 1

0

要将地图添加到背景，请尝试

plot(l, lwd = l$All / 5 )
plot(map, add=T) #add this for a map
于 2021-10-17T09:20:09.303 回答