16

我想为整个地图添加一个标题（与图例标题不同：addLegend(..., title = "", ...)：通过“标题”，我的意思是一个覆盖的地图组件保持在原位移动地图时（与叠加图像不同）地图标题可能是什么样子。

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

LeafletR有一个title=""参数，但它会更新网页的标题：它不会向地图添加标题。

4

2 回答 2

16

@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标题居中，如屏幕截图所示，并将其放在顶部。

于 2018-09-07T17:00:34.717 回答
15

您应该提供一个可重现的示例。但是使用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，您将在地图上看到一个图像（只需在其中创建一个带有地图标题的图像）。它不是中心，您只能将控件放在四个角上。希望能帮助到你！

于 2018-03-03T11:34:22.760 回答