Листовка
действительно мощная и действительно рекомендует библиотеку.
Вот пример:
> library(leaflet)
> fishes <- data.frame(lat=c(-47.2,-20.4,-20.9),long=c(-57.9,-3.2,-35.2),abudance=c(5,1,17),samples=c("s1","s2","s3"))
> fishes
lat long abudance samples
1 -47.2 -57.9 5 s1
2 -20.4 -3.2 1 s2
3 -20.9 -35.2 17 s3
> leaflet(fishes) %>% addTiles() %>%
+ addCircles(lng = ~long, lat = ~lat, weight = 1,
+ radius = ~abudance *20000, popup = ~samples
+ ) %>% addTiles() %>% addMarkers(~long, ~lat, popup = ~as.character(abudance), label = ~as.character(abudance))
Приведенный выше код сгенерирует это:
Чтобы настроить всплывающие окна и точки, см. Следующие страницы:
https://rstudio.github.io/leaflet/markers.html
https://rstudio.github.io/leaflet/popups.html
https://rstudio.github.io/leaflet/colors.html