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

Question

此代码取自此页面:

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

而不是标记,有没有办法mag作为文本标签绘图？

Answer 1

UPDATE

当这个答案发布时,我认为addLabelOnlyMarkers()CRAN版本没有正式包含在内.截至2018年1月8日,传单在CRAN上的版本为1.1.0.这个版本有这个功能.无需下载github版本.

原始答案

如果您leaflet从GitHub安装了软件包,则可以这样做

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

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

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