Início / coding / Perguntas / 79554011
Accepted
Salvador
Asked: 2025-04-04 05:10:44 +0800 CST

como desenhar uma bússola em um folheto ou mapa mapview

  • 772

Como posso adicionar um controle de bússola ao meu mapa? Costumava haver uma função chamada addControlCompassem leaflet.extras, eu acredito, mas não existe mais. Alguém sabe como adicionar uma bússola ou uma seta indicando north up?

library(leaflet)
library(leaflet.extras)

# Create a basic Leaflet map
map <- leaflet() %>%
  addTiles() %>%
  setView(lng = -121.2722, lat = 38.1341, zoom = 10)  

# Add a scale bar and compass to the map
map <- map %>%
  addScaleBar(position = "bottomleft", options = scaleBarOptions(maxWidth = 100, metric = TRUE, imperial = FALSE)) %>%
  addControlCompass(position = "topright", options = compassOptions())
  map

1 respostas

  1. Best Answer

    Se você só precisa de uma seta apontando para o norte, você pode usar um pouco de HTML + CSS e adicioná-la ao mapa usando htmltools. Você pode pegar qualquer design de seta e colá-lo dentro do div.

    fora

    library(leaflet)
library(htmltools) 

north_arrow <- HTML('
<div style="
    width: 20px;
    height: 30px;
    text-align: center;
    font-weight: bold;
    font-size: 22px;
">
    <div>⮙</div> <!-- add arrow UTF8 symbol here -->
    <div>N</div>
</div>')

leaflet() %>%
  addTiles() %>%
  setView(lng = -121.2722, lat = 38.1341, zoom = 10) %>%
  addScaleBar(position = "bottomleft", options = scaleBarOptions(maxWidth = 100, metric = TRUE, imperial = FALSE)) %>%
  addControl(north_arrow, position = "topright")

    Ou um pouco mais chique

    library(leaflet)
library(htmltools) 


map <- leaflet() %>%
  addTiles() %>%
  setView(lng = -121.2722, lat = 38.1341, zoom = 10) %>%
  addScaleBar(position = "bottomleft", options = scaleBarOptions(maxWidth = 100, metric = TRUE, imperial = FALSE)) %>%
  addControl(HTML('
<div style="width: 90px;height: 90px;">
    <img src="https://clipart-library.com/images/rTnRjnAGc.png" style="width: 100%; width: 100%; opacity: 0.7;">
</div>'), position = "topright", className = "leaflet-control-nobg")

map <- htmlwidgets::prependContent(map, 
                                   tags$style(".leaflet-control-nobg { background: none !important; box-shadow: none !important; border: none !important; }")
)

map

    fora

    • 2

relate perguntas