R中的leaflet：添加文本标签

Question

这段代码来自这个页面：

library(leaflet)
leaflet(data = quakes[1:20,]) %>% addTiles() %>%
  addMarkers(~long, ~lat, popup = ~as.character(mag))

除了标记之外，有没有办法将mag作为文本标签绘制？

- luciano

Answer 1

更新

当这个答案发布时，我认为addLabelOnlyMarkers()没有被正式包含在CRAN版本中。截至2018年1月8日，leaflet在CRAN上的版本为1.1.0。此版本具有该功能。无需下载github版本。

原始答案

如果您已经从GitHub安装了leaflet包，您可以执行以下操作

leaflet(data = quakes[1:20,]) %>% addTiles() %>%
  addLabelOnlyMarkers(~long, ~lat, label =  ~as.character(mag), 
                      labelOptions = labelOptions(noHide = T, direction = 'top', textOnly = T))

addPopups函数可能是一个有价值的解决方法，如果您不想使用GitHub上的包版本。(在CRAN版本中正式发布addLabelOnlyMarkers()之前，情况就是这样。)

---

leaflet(data = quakes[1:20,]) %>% addTiles() %>%
        addPopups(~long, ~lat, ~as.character(mag), 
        options = popupOptions(minWidth = 20, closeOnClick = FALSE, closeButton = FALSE))

- symbolrush

---

你知道现在是否有新的解决方案适用于“非Github”用户吗？你的addPopups解决方案是有效的，但它不够图形化吸引人。 - Mathias711

Answer 2

您可以给标记添加静态/悬停标签。

示例代码请参见https://github.com/rstudio/leaflet/blob/master/inst/examples/labels.R。

示例演示请参见http://rpubs.com/bhaskarvk/leaflet-awesome-markers和http://rpubs.com/bhaskarvk/leaflet-label。

- user507484

---

嗨，我尝试了你的示例，但所有的“label”选项对我都不起作用。有什么想法吗？“未使用的参数（label = htmltools :: HTML（"<em>我是HTML标签</ em>"））” - Christophe D.

@ChristopheD。您需要从主分支构建Leaflet软件包，更改尚未推送到CRAN。 - user507484

好的！谢谢 @Bhaskar Karambelkar。 - Christophe D.

我已经从主构建，但仍然出现错误。这很令人困惑。 - sconfluentus

运行良好。但需要从GitHub安装，而不是从CRAN安装。在此处查找如何从GitHub安装：https://github.com/rstudio/leaflet - elevendollar

@elevendollar 这应该是答案的一部分。我想知道为什么“label”在主包中缺失？我很久以前安装了leaflet，忘记了我是从github安装的。 - geneorama