Question

pal <- colorFactor(palette = "Set1", domain = MFT_tidy$Parent_Organization)
popup_text <- paste(MFT_tidy$Facility_Name, "<br>",
                    "Facility_Phone:", MFT_tidy$Facility_Phone, "<br>",
                    "Vendor_Name:", MFT_tidy$Vendor_Name)
layer_groups <- c("OSM (default)", "Toner", "Positron", "NatGeoWorldMap")

leaflet(MFT_tidy, width = "100%") %>% 
    addTiles(group = "OSM (default)") %>%
    addProviderTiles(providers$Stamen.Toner, group = "Toner") %>% 
    addProviderTiles(providers$CartoDB.Positron, group = "Positron") %>% 
    addProviderTiles(providers$OpenTopoMap, group = "OpenTopoMap") %>% 
    addProviderTiles(providers$Esri.NatGeoWorldMap, group = "NatGeoWorldMap") %>% 
    addCircleMarkers(lng = ~longitude, lat = ~latitude,
                     color = ~pal(Parent_Organization),
                     stroke = FALSE, fillOpacity = 1,
                     label = ~Facility_Name,
                     popup = popup_text,
                     clusterOptions = markerClusterOptions() ) %>% 
    addLegend(position = "topright", pal = pal, 
              values = ~Parent_Organization,
              labels = ~Parent_Organization,
              title = "Parent Organization",
              opacity = 1) %>% 
    addLayersControl(baseGroups = c("OSM (default)", "Toner", "Positron", 
                                    "OpenTopoMap", "NatGeoWorldMap"),
                     position = "bottomright") %>% 
    addMeasure(
        position = "bottomleft",
        primaryLengthUnit = "meters",
        primaryAreaUnit = "sqmeters",
        activeColor = "#3D535D",
        completedColor = "#7D4479") %>% 
    addEasyButton(easyButton(
        icon = "fa-globe", title = "Zoom to Original Level",
        onClick = JS("function(btn, map){ map.setZoom(6); }"))) %>%
    addEasyButton(easyButton(
        icon = "fa-crosshairs", title = "Locate Me",
        onClick = JS("function(btn, map){ map.locate({setView: true}); }")))

我用来创建地图的代码如上：

奇怪的传奇显示有明显的问题。我不知道如何纠正它。我真的在addLegend函数中找不到任何错误。

Answer 1

可能duplicate。

问题不在于addLegend功能，而在于浏览器中的缩放。您可以通过调整图例上的CSS来解决此问题

复制@Adam的代码：

ui <- bootstrapPage( 
  tags$style(type="text/css", "div.info.legend.leaflet-control br {clear: both;}"),
...
)

奇怪的传单地图图例显示

1 个答案: