用矢量相应地改变传单线的颜色

Question

无论如何根据某些变量的值改变传单线的颜色？我谷歌了，发现了这个link。

然而，我想知道是否有一种简单的方法可以在R中使用传单。我尝试了类似的事情：

data <- data.frame(long = runif(40,-10,10), lat = runif(40,50,60), speed = runif(40,0,100))
leaflet(data) %>% addTiles() %>% addPolylines(lng = ~long, lat = ~lat, color = ~speed)

但是，它只显示一种颜色。