r - 带有 R : add text labels 的传单

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 版本。

原始答案

如果您有 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 的包版本，函数可能是一个有值(value)的解决方法。 (在 CRAN 版本中 addLabelOnlyMarkers() 正式发布之前就是这种情况。)

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