图例中的颜色与地图中的颜色不匹配

Question

基本上，我尝试使用颜色来显示值，但是，当我添加图例时，图例中的颜色与地图中的颜色不匹配。

     output$map <- renderLeaflet({ temp<-data[data$coralType==input$type,] temp<- aggregate(temp,by=list(temp$location),FUN=mean) #print(temp) qpal <- colorQuantile("YlOrRd", temp$value,n=6) leaflet(temp) %>% addProviderTiles("Esri.WorldImagery") %>% addCircleMarkers(~longitude,~latitude,radius =~value*35,color=~qpal(value), label=paste(paste(temp$Group.1,":"),temp$value),fillOpacity =0.8) %>% addLegend("topright", pal = qpal, values = ~value, title = "Average Rate", opacity = 1) })

Answer 1

不确定这是否有帮助，但在您发布此问题之前不久，git 上出现了类似的问题：https://github.com/r-spatial/mapview/issues/219 我遇到了类似的问题，但图例使用的是名义数据（不是斜坡梯度）。