相关疑难解决方法(0)

我有一个R Shiny应用程序,它使用Leaflet创建交互式地图.在此地图上,分类变量用于指定不同类型的点,并使用自定义标记(不同的图标,取决于因子级别)进行可视化.

我想要做的是在图中添加一个图例,但让图例显示各种标记图标而不是纯色.该传说教程不包括这一点.

我遇到了另一个似乎可以解决这个问题的SO答案 - 但它是用JavaScript完成的,我不知道如何翻译它/如果它可以被翻译成在R中工作.任何人都知道如何实现这一目标？

一个基本可重复的例子:

library(leaflet)

# Sample Data
data(quakes)
quakes <- quakes[1:10,]

# Choose Icon:
leafIcons <- icons(
  iconUrl = ifelse(quakes$mag < 4.6,
                   "http://leafletjs.com/docs/images/leaf-green.png",
                   "http://leafletjs.com/docs/images/leaf-red.png"
  ),
  iconWidth = 38, iconHeight = 95,
  iconAnchorX = 22, iconAnchorY = 94)

# Produce Map:
leaflet(data = quakes) %>% addTiles() %>%
  addMarkers(~long, ~lat, icon = leafIcons)