Обычно я пытался использовать цвета для отображения значения, однако при добавлении легенды цвет в легенде не соответствует цвету на карте.
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)
})