gpt4 book ai didi

r - 如何在 R Leaflet 中自定义图例标签

转载 作者:行者123 更新时间:2023-12-03 23:17:33 25 4
gpt4 key购买 nike

我有一个 R 脚本,用于制作带有传单 map 的 Shiny 应用程序。
该 map 包括基于四分位数计算的图例。图例显示了每个四分位数的范围,但我想显示为“第一四分位数”、“第二四分位数”等。我试图在“AddLegend”下添加“标签”但没有使用。你知道如何?
您可以从下面的 GitHub 链接中查看脚本和相关文件。非常感谢。

https://github.com/e5t2o/exploring_shiny/blob/master/InteractiveMap/app.R

最佳答案

我正在寻找解决方案,并在此评论中找到了一个:
Manually adding legend values in leaflet

这是一种解决方法,但由于某种原因它有效。你可以写:

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

关于r - 如何在 R Leaflet 中自定义图例标签,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47410833/

25 4 0