如何用正确的标记制作传单地图？

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