Как сделать листовку карту с нужным маркером?

Question

Я хочу сделать карту с листовкой, и маркер должен показать, как часто происходит координата.Вот для примера, эта координата встречается 230 раз.Есть ли способ сделать это лучше?

library(leaflet)
library(dplyr)
leaflet()%>%
  setView(174.764,-36.877,zoom = 16)%>%
  addTiles()%>%
  addMarkers(174.764,-36.877,popup = "Maungawhau,230")#occurs 230 times

вывод выглядит так: 1 : https://i.stack.imgur.com/tKbwC.png

Редактировать этот выглядит красиво

Answer 1

Вы можете использовать addCircleMarker и увеличить радиус круга. Я использовал sqrt, потому что радиус 230 действительно велик, но вы можете делать все, что пожелаете. Вы можете поместить html-код в аргумент всплывающего окна, чтобы вы могли отображать число 230 по своему желанию.

library(leaflet)
library(dplyr)
leaflet()%>%
  setView(174.764,-36.877,zoom = 16)%>%
  addTiles()%>%
  addCircleMarkers(174.764,-36.877,popup = "Maungawhau,<h2><font color=\"red\"><b>230<b></font></h2>",radius=sqrt(230))

Обновление: если вы предпочитаете добавлять ярлыки, а не всплывающие окна, вы можете сделать что-то вроде этого:

leaflet()%>%
  setView(174.764,-36.877,zoom = 16)%>%
  addTiles()%>%
  addCircleMarkers(174.764,-36.877,
                   label="230",labelOptions = labelOptions(offset=c(10,0),noHide = TRUE,textOnly=TRUE, textsize="15px",
                   style = list("color" = "red")),
                  radius=sqrt(230))#occurs 230 times