带R的传单：添加文本标签

Question

此代码取自this page：

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

有没有办法将mag绘制为文字标签，而不是标记？

Answer 1

<强>更新

发布此答案时，我认为addLabelOnlyMarkers()未正式包含在CRAN版本中。截至2018年1月8日，传单在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))

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

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

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