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

使用漂亮的地图显示红色圆圈标记工作得很好.

但.添加颜色似乎完全扼杀了标记.

#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那么它应该可以正常工作。