R传单自定义图像到图层控制答案

【问题标题】：R leaflet custom image to layer controlR传单自定义图像到图层控制
【发布时间】：2016-05-24 20:12:30
【问题描述】：

我正在 R 中创建一个包含多个图层的传单地图。我有一个使用 addLayersControl() 创建的图层控件。由于我使用自定义图像作为不同图层的标记，我想知道是否有一种方法可以在图层名称之前将自定义图像添加到由 R 创建的图层控件。

谢谢。

【问题讨论】：

【解决方案1】：

是的，你可以。由于您没有提供任何代码，我将使用官方文档 page 中的教程代码：

outline <- quakes[chull(quakes$long, quakes$lat),]

map <- leaflet(quakes) %>%
  # Base groups
  addTiles(group = "OSM (default)") %>%
  addProviderTiles("Stamen.Toner", group = "Toner") %>%
  addProviderTiles("Stamen.TonerLite", group = "Toner Lite") %>%
  # Overlay groups
  addCircles(~long, ~lat, ~10^mag/5, stroke = F, group = "Quakes") %>%
  addPolygons(data = outline, lng = ~long, lat = ~lat,
              fill = F, weight = 2, color = "#FFFFCC", group = "Outline") %>%
  # Layers control
  addLayersControl(
    baseGroups = c("OSM (default)", "Toner", "Toner Lite"),
    overlayGroups = c("Quakes", "Outline"),
    options = layersControlOptions(collapsed = FALSE)
  )
map

例如，如果您想在图层名称“Quakes”之前添加图像，请在 LayersControl() 函数内添加以下标准 html <img src=""> 标签：

addLayersControl(
    baseGroups = c("OSM (default)", "Toner", "Toner Lite"),
    overlayGroups = c("<img src='http://your/image/path.png' height='20' width='20'> Quakes", "Outline"),
    options = layersControlOptions(collapsed = FALSE)
  )

【讨论】：