ulotka z R: dodać etykiety tekstowe

Question

Ten kod jest pobierana z this page:

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

zamiast markerów, czy jest jakiś sposób, aby wykreślić mag jako etykiet tekstowych?

Answer 1

UPDATE

Kiedy ta odpowiedź została wysłana, myślę addLabelOnlyMarkers() nie zostało oficjalnie włączone w wersji CRAN. Od 8 stycznia 2018 r. Ulotka jest w wersji 1.1.0 na CRAN. Ta wersja ma tę funkcję. Nie musisz pobierać wersji github.

ORIGINAL ODPOWIEDŹ

Jeśli Twój pakiet leaflet zainstalowany z GitHub, można zrobić

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

---

Funkcja addPopups może być cennym obejście jeśli ciebie nie chcesz pracować z wersją pakietu z GitHub . (To było przed oficjalnym wydaniem addLabelOnlyMarkers() w wersji CRAN.)

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

Answer 2

Możesz dodać statyczny/unoszą etykiety znaczników

https://github.com/rstudio/leaflet/blob/master/inst/examples/labels.R

Demo http://rpubs.com/bhaskarvk/leaflet-awesome-markers http://rpubs.com/bhaskarvk/leaflet-label