R:向Leaflet地图添加标题

Question

我想在整个地图上添加一个标题(与图例标题不同:addLegend(...,title ="",...):"title",我的意思是一个覆盖的地图组件,它保持不变移动地图时(与重叠图像不同).

这是RStudio的R 传单中的一个选项吗？

leafletR有一个 title =""参数,但它更新了网页的标题:它没有为地图添加标题.

Answer 1

您应该提供可重现的示例.但是使用addControl你可以尝试:

 library(leaflet)
 library(htmlwidgets)
 library(htmltools)

 rr <- tags$div(
   HTML('<a href="https://cran.r-project.org/"> <img border="0" alt="ImageTitle" src="/PathToImage/ImageR.jpeg" width="300" height="100"> </a>')
 )  

 map_leaflet <- leaflet() %>%
   addTiles() %>%
   addMarkers(50, 50) %>%
   addControl(rr, position = "bottomleft")

 saveWidget(map_leaflet, file="testing.html")

打开testing.html保存在您的工作目录中,您将在地图上看到一个图像(只是在其中创建一个带有地图标题的图像).它不是中心,你只能将控制放在四个角上.希望能帮助到你!

Answer 2

@MLavoie的想法是正确的，但是我正在寻找更具体的内容，例如：

tag.map.title <- tags$style(HTML("
  .leaflet-control.map-title { 
    transform: translate(-50%,20%);
    position: fixed !important;
    left: 50%;
    text-align: center;
    padding-left: 10px; 
    padding-right: 10px; 
    background: rgba(255,255,255,0.75);
    font-weight: bold;
    font-size: 28px;
  }
"))

title <- tags$div(
  tag.map.title, HTML("Map title")
)  

map_leaflet <- leaflet() %>%
  addTiles() %>%
  addControl(title, position = "topleft", className="map-title")

这将使leaflet-control标题居中，如屏幕截图所示，并将其放在顶部。