如何绘制具有给定半径和圆点的圆以同时指示圆的中心？

Question

我已经可以绘制一个具有特定半径圆的城市;我无法弄清楚的是如何用圆点标记圆心。我正在使用R，Shiny和传单。

observe({
        map$clearShapes()
        cities <- topCitiesInBounds()

    if (nrow(cities) == 0)
      return()


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


  })

Answer 1

你的例子不可重复，很难帮助你。但我假设你有一个带有Lat ang Long信息的data.frame城市。

您可以添加标记：

paramList <- dlply(cities, 2, function(x) {
        list(x[['Lat']], 
             x[['Long']], 
             x[['id']]})
        )})
lapply(paramList1, function(x) do.call(map$addMarker, unname(x)))