r - 指定された半径の円と円の中心を同時に示す点をプロットするにはどうすればよいですか?

Question

特定の半径の円で都市をプロットできます。私が理解できないのは、円の中心を点でマークする方法です。R、シャイニー、リーフレットを使用しています。

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

あなたの例は再現できないので、あなたを助けるのは難しいです。しかし、緯度経度情報を持つ 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)))