R 如何设置大小半径圆成反比缩放水平在有光泽的传单？

传单使用从0（世界）到18（本地）的缩放级别

在我的地图中，圆圈形状的最大比例设置为5000米半径（缩放级别：18）

如何按缩放级别输入的反比增加圆形状的半径

我想要的是：在世界缩放级别（例如：100000米，半径x10）的更大圆圈，并减少到5000（缩放级别18）

如何将圆的大小与缩放级别成反比设置

library(shiny)
library(leaflet)

df <- data.frame(
  location_name = c('S1', 'S2'),
  lng = c(-1.554136,  -2.10401),
  lat = c(47.218637, 47.218637), 
  stringsAsFactors = FALSE
)


ui <- shinyUI(
  fluidPage(
    leafletOutput(outputId = 'map')
  )
)

server <- shinyServer(function(input, output, session) {

  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles()
  })

  observeEvent(
    eventExpr = input$map_zoom, {
      print(input$map_zoom)           # Display zoom level in the console
      leafletProxy(
        mapId = "map", 
        session = session
      ) %>% 
        clearShapes() %>%
        addCircles(
          data = df, 
          lng = ~lng,
          lat = ~lat,
          radius = ~ 5000 * 1/input$map_zoom # increase too slightly
        )
    }
  )


})

shinyApp(
  ui = ui, 
  server = server
)

库（闪亮）
图书馆（单张）
df是否确定
ex:100000米，半径x10）并减小到5000（缩放级别18）
。可计算该冷量：
f（缩放）=常数+缩放*x；100000=常数+10*x；5000=常数+18*x；解决这个问题会导致：
218750-11875*zoom`（假设大小应该线性减小，否则使用另一个函数，…）@BigDataScientist感谢您的帮助。我想显示从局部（500米）缩放级别18到全局（缩放级别0）的圆，因此要显示我的圆，我需要将其半径更改为kilometers@BigDataScientist你能给出一个可复制的答案吗？