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

此代码取自this page：

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

除了标记，还有什么方法可以将mag绘制为文本标签？

最佳答案

更新

发布此答案时，我认为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))

关于r - 带R的传单:添加文本标签，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/31745525/