2015-07-31 11 views
8

Dieser Code aus this page genommen wird:Faltblatt mit R: add beschriftete

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

Anstelle von Markern, ist es eine Möglichkeit, mag als Textbeschriftungen zu zeichnen?

Antwort

9

UPDATE

Wenn diese Antwort geschrieben wurde, ich addLabelOnlyMarkers() denke, wurde in der CRAN Version nicht offiziell aufgenommen. Seit dem 8. Januar 2018 ist das Flugblatt in der Version 1.1.0 auf CRAN. Diese Version hat die Funktion. Keine Notwendigkeit, eine Github-Version herunterzuladen.

ORIGINAL ANTWORT

Wenn Sie Ihr leaflet Paket von GitHub installiert haben, können Sie tun

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

enter image description here


Die addPopups Funktion könnte eine wertvolle Abhilfe, wenn Sie sein Ich möchte nicht mit der Paketversion von GitHub arbeiten . (Dies war der Fall vor der offiziellen Veröffentlichung von addLabelOnlyMarkers() in der CRAN-Version.)

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

Marker Wissen Sie, ob es jetzt eine neue Lösung für Nicht-Github-Benutzer gibt? Ihre 'addPopups' Lösung funktioniert, aber sie ist nicht sehr grafisch attraktiv. – Mathias711

3
+0

Hallo, ich habe versucht, dein Beispiel zu machen, aber alle "Label" -Optionen funktionieren für mich. Irgendeine Idee ? 'unbenutztes Argument (label = htmltools :: HTML (" Ich bin ein HTML Label "))' –

+0

@ChristopheD. Sie müssen das Leaflet-Paket vom Master-Zweig erstellen, die Änderungen werden noch nicht nach CRAN übertragen. –

+0

Ok! Danke @ Bhaskar Karambelkar. –