[英]How to customize legend labels in R Leaflet
我有一个R脚本,用于使用传单地图制作闪亮的应用程序。 该地图包括基于四分位数计算的图例。 图例显示了每个四分位数的范围,但我想显示为“第一四分位数”,“第二四分位数”等。 我试图在“ AddLegend”下添加“标签”,但没有使用。 你知不知道怎么? 您可以从下面的GitHub链接中查看脚本和相关文件。 非常感谢。
https://github.com/e5t2o/exploring_shiny/blob/master/InteractiveMap/app.R
我正在寻找解决方案,并在此评论中找到了一个: 在传单中手动添加图例值
这是一个变通办法,但是由于某些原因它可以工作。 你可以写:
# Define palette
pal <- colorBin(UNICEF, domain = oo$Value, bins = bins, na.color = "#F1F1F1")
# Define labels
labels <- c("1st Quartile", "2nd Quartile", "3rd Quartile", "4th Quartile")
output$mymap <- renderLeaflet({
leaflet(data = oo) %>%
addPolygons( # Fill in your parameters
) %>%
addLegend( # Legend options
pal = pal, # Previously defined palette
values = ~Value, # Values from data frame
opacity = 0.7, # Opacity of legend
title = NULL, # Title
position = "bottomleft",
labFormat = function(type, cuts, p) { # Here's the trick
paste0(labels)
}
) %>%
setView( # Fill in your map boundaries
)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.