Как добавить легенду к сюжету, используя qtm в R

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))

И я пытаюсь добавить легенду, в которой говорится, что ширина линии зависит от номера поездки.