r - R 中的传单未显示可变圆圈颜色

Question

细读后Intro to Leaflet ，我尝试使用数据集，但是当我尝试使用公式界面时，海带的圆圈或标记没有颜色。我重新创建了一个玩具示例，并且如您所见，有些问题。虽然可能是我!所以:

library("leaflet")
set.seed(100)
pdf <- data.frame(Latitude = runif(100, -90,90), Longitude = runif(100, -180,180))

#just red
leaflet(pdf) %>% addTiles()  %>%
  addCircleMarkers(lat = ~ Latitude, lng = ~ Longitude, color= "red")

使用显示红色圆圈标记的精美 map 效果很好。



但。添加颜色似乎完全使标记变得无聊。

#let's add some color!
pdf$Study <- factor(rep(1:10,10))
cols <- rainbow(length(levels(pdf$Study)))
pdf$colors <- cols[unclass(pdf$Study)]

leaflet(pdf) %>% addTiles()  %>%
  addCircleMarkers(lat = ~ Latitude, lng = ~ Longitude, color= ~ colors)

对 pdf 的颜色栏的检查表明，一切都应该是明亮而美丽的，然而，唉。这里发生了什么？

Answer 1

默认情况下，rainbow返回 #RRGGBBAA 中的颜色格式，Leaflet 不能使用。如果添加参数 alpha=NULL那么它应该可以正常工作。