r - 图例颜色与多边形颜色并不完全相似
问题描述
我正在使用传单功能在闪亮的框架内创建交互式地图。除了传说之外,一切看起来都很棒。图例的颜色有些褪色,因此不能完美地代表多边形的颜色。如何解决?
renderLeaflet ({
pal8 <- c("#FFFFE5", "#D9F0A3", "#78C679", "#006837")
bins=quantile(mapdata_1()$Per), na.color = "#808080", alpha = FALSE, reverse = F)
pal <- colorFactor(palette = pal8, domain =NULL, levels=(mapdata_1()$cat), ordered = TRUE, na.color = "#808080", alpha = FALSE, reverse = F)
leaflet (mapdata_()) %>%
addProviderTiles("CartoDB.Positron") %>%
clearControls() %>%
clearShapes()%>%
addPolygons(fillColor = ~pal(cat)) %>%
addTiles() %>%
setView(-82.706838, 40.358615, zoom=7) %>%
addLegend(position = "bottomright",
values = ~cat,
pal = pal,
title = (paste("%",input$Age_Group_map, input$sex_map, "in", input$Year_map)) ,
labFormat = labelFormat(
))
})
解决方案
图例默认是透明的,这会影响颜色的外观。更改opacity
参数以解决此问题:
addLegend(position = "bottomright",
values = ~cat,
pal = pal,
opacity = 1.0,
title = (paste("%",input$Age_Group_map,
input$sex_map, "in", input$Year_map)) ,
labFormat = labelFormat())
推荐阅读
- amazon-web-services - CloudFormation 中更新和导入的区别
- python - Geopandas:保存为csv时如何指定数据类型?
- json - 没有键的结构/映射数组
- json - 如何在 API 调用完成后和组件呈现之前更新状态
- php - 检查数据库中是否有另一个用户名不起作用
- java - 不能在模仿 ArrayList 工作方式的类中的两个数组之间使用相等运算符
- r - 找到存在/不存在变量和定量变量之间的统计检验
- javascript - Svelte.js 组件属性在带有 customElement 的脚本标记中未定义:true
- json - 我们如何在 Flutter 应用程序中解析 json 响应的内部节点?
- java - 如何在sping jpa中使用转换器