如何在R中使用qtm向图添加图例

Question

我正在使用tmap软件包，并正在使用其功能来获取我感兴趣的区域的地图

library(tmap)
qtm("London")

然后我有SpatialLinesDataFrame包含旅行次数数据，因此我想显示那些使用旅行次数作为宽度的数据，即

qtm("London")+
qtm(l, lines.lwd=l$Trips/10)+
tmap_options(limits=c(facets.view)=1))

但是我找不到显示图例的方法

一种快速重现我正在做的事情的方法是

library(stplanr)
library(tmap)
data("flow", package = "stplanr")
data("cents", package = "stplanr")
as.data.frame(cents[1:3, -c(3,4)])
l <- od2line(flow = flow, zones = cents)
qtm("Leeds")+
qtm(l, lines.lwd=l$All/10)+
tmap_options(limits=c(facets.view)=1))

我正在尝试添加一个图例，该图例表示线宽基于行进号。