在单张地图上绘制若干标记

Question

嗨，我正在学习如何在shiny上使用传单地图，我用了这个例子：

我想通过将addcircle函数替换为addmarker来将圈替换为标记。

实际的函数是：（server.r的第98行）

map$addCircle(
  cities$Lat,
  cities$Long,
  sqrt(cities[[popCol()]]) * radiusFactor / max(5, input$map_zoom)^2,
  row.names(cities),
  list(
    weight=1.2,
    fill=TRUE,
    color='#4A9'
  )
)

我把它换成了：

map$addMarker(
  cities$Lat,
  cities$Long,
  row.names(cities)
)

for(i in 1:nrow(cities)){
    map$addMarker(
      cities$Lat[i],
      cities$Long[i],
      i
    )
}

Answer 1

我也有同样的问题，这是因为你去掉了半径。通过查看函数createLeafletMap的代码，我们可以看到addCircle需要以下参数：

addCircle(lat, lng, radius, layerId = NULL, options=list(), eachOptions=list())

它真的需要半径。要解决你的问题，只需写下：

map$addMarker(
  cities$Lat,
  cities$Long,
  100,
  row.names(cities)
)