R：向传单地图添加标题

Question

我想为整个地图添加一个标题（不同于图例标题：addLegend(..., title = "", ...): "title"，我的意思是在移动地图时保持原位的叠加地图组件（与叠加图像不同）。

这是 RStudio leaflet 中 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 标题居中，如屏幕截图所示，并将其置于顶部。

R：向传单地图添加标题

R: Add title to Leaflet map

r

leaflet

r-leaflet