我在我的shiny应用程序中渲染一些传单Map，问题是Map图例显示不正确，图例项对齐非常奇怪（图2）。我在R studio和Rstudio Viewer中创建了相同的Map，图例项对齐正确（图1）。
我试过在我闪亮的代码中使用CSS标签来定制图例，但没有任何效果。

下面是一些示例代码，展示了我是如何渲染传单图的（以及我尝试过的CSS标签示例）。我不知道为什么这些项目是这样显示的。我真的很感激你的帮助。

...
tabPanel("plot", 
  tagList(
    tags$head(
      tags$style(
         ".leaflet .legend {width:200px; text-align: left;}",
         ".leaflet .legend i{float: left;}",
         ".leaflet .legend label{float:left; text-align: left;}"
       )
     )
  ),

  leafletOutput("leaflet_plot", width = 800, height = 550)
)
...

# code to create leaflet
output$leaflet_plot <- renderLeaflet({
  pal <- c("#F1F1F1", brewer.pal(5, "YlOrBr"))
  opts <- providerTileOptions(opacity = 0)
  map <- leaflet(shape_file) %>% addProviderTiles("CartoDB.PositronNoLabels", options = opts)
  map <- map %>% addPolygons(fillColor = ~colorFactor(pal, shape_file$var)(var)
  map <- map %>% addLegend("bottomleft", title = "Employment/Acre", pal = colorFactor(pal, NULL), values = ~var)
  map
})