Question

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

谢谢。

Answer 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”之前添加图片，请在<img src="">函数中添加以下标准html LayersControl()标记：

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)
  )

R小册子自定义图像到图层控制

1 个答案: