如何在gvisMap中禁用拖拽/缩放并移除缩放控件？含替代方案咨询

嘿，我来帮你搞定这个gvisMap的问题！其实gvisMap底层是调用Google Maps JavaScript API的，所以很多API原生的配置项都能直接加到gvis的options参数里，哪怕官方帮助文档没明确列出来也没问题。

针对gvisMap的解决方案 #

你需要在options里添加几个关键配置，就能实现完全禁用拖拽、缩放，同时移除缩放控件：

• 禁用地图拖拽：设置draggable: false
• 禁用鼠标滚轮缩放：设置scrollwheel: false
• 禁用双击缩放：设置disableDoubleClickZoom: true
• 移除缩放控件：设置zoomControl: false
• 如果想一次性关闭所有默认控件（比如地图类型切换控件等），可以再加disableDefaultUI: true（按需选择）

给你个完整的代码示例：

library(googleVis)

# 准备示例数据
map_data <- data.frame(
  lat = c(31.2304),
  lon = c(121.4737),
  location = c("Shanghai")
)

# 配置地图选项
custom_options <- list(
  draggable = FALSE,
  scrollwheel = FALSE,
  disableDoubleClickZoom = TRUE,
  zoomControl = FALSE,
  # 可选：关闭所有默认UI控件
  # disableDefaultUI = TRUE
)

# 创建并渲染地图
my_map <- gvisMap(map_data, "lat", "lon", "location", options = custom_options)
plot(my_map)

在Shiny里用的话，直接用renderGvis和gvisOutput就能轻松集成，和普通gvisMap的用法一致，非常方便。

关于plotGoogleMaps的补充 #

你提到plotGoogleMaps有draggable=FALSE参数，但没有直接的禁用缩放选项，其实它也支持通过mapOptions参数传递Google Maps API的配置项，来实现禁用缩放：

library(plotGoogleMaps)

data(meuse)
coordinates(meuse) <- ~x+y
proj4string(meuse) <- CRS("+init=epsg:28992")

# 配置禁用拖拽和缩放的选项
map_options <- list(
  draggable = FALSE,
  scrollwheel = FALSE,
  disableDoubleClickZoom = TRUE,
  zoomControl = FALSE
)

# 生成地图
plotGoogleMaps(meuse, mapOptions = map_options)

不过确实如你所说，它在Shiny里的集成体验不如gvisMap顺畅，所以如果是做Shiny应用，优先推荐用gvisMap的方案。

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