R 图例颜色与多边形的颜色并不完全相似

我正在使用传单功能在shiny框架内创建一个交互式地图。除了传说，一切看起来都很棒。图例的颜色有些褪色，因此不能完美地表示多边形的颜色。如何解决这个问题

renderlaflet({
帕尔8%
clearControls（）%>%
clearShapes（）%>%
addPolygons（fillColor=~pal（cat））%>%
addTiles（）%>%
setView（-82.706838，40.358615，缩放=7）%>%
addLegend（position=“bottomright”，
值=~cat，
pal=pal，
title=（粘贴（“%”，输入$Age\u Group\u map，输入$sex\u map，“in”，输入$Year\u 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())

---

问题的一部分似乎是图例是透明的，当您在

addLegend

中设置

opacity=1.0

时会发生什么？它非常有效！非常感谢你。

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