Leaflet地图中禁用缩小功能的实现方法

你的代码报错是因为语法错误，同时参数设置也不符合需求。下面是修正后的实现：

正确代码 #

library(leaflet)

m <- leaflet(options = leafletOptions(
    minZoom = 12,  # 锁定最小缩放为初始级别，禁止缩小
    maxZoom = 18,  # 允许放大到指定级别，可按需调整
    dragging = TRUE  # 保留拖拽滚动功能
  )) %>%
  addTiles() %>%
  addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R") %>%
  setView(174.768, -36.852, zoom = 12)

m

关键设置说明 #

• minZoom = 12：把最小允许缩放级别设为初始的12，这样用户无法缩小到更低级别，缩放控件里的缩小按钮会自动变成灰色不可用状态。
• maxZoom = 18：设置允许放大的最大级别，你可以根据需要调整这个数值。
• dragging = TRUE：保留地图的拖拽滚动功能，满足横向/纵向移动的需求。
• 不需要设置zoomControl = FALSE，默认显示缩放控件即可，此时只有放大按钮可用，缩小按钮被禁用。

内容的提问来源于stack exchange，提问作者stats_noob