奇妙なリーフレット地図凡例表示

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を調整することにより、この問題を解決することができます

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