如何在Shiny的Plotly图表中默认启用套索选择并禁用缩放

要实现你的两个需求，需要从布局配置和工具栏控制两个层面入手，以下是具体修改方案：

关键修改点 #

• 彻底禁用缩放：仅移除工具栏的缩放按钮还不够，必须设置坐标轴的fixedrange为TRUE，这样能禁止鼠标滚轮、拖拽等所有缩放操作
• 默认启用套索选择：直接将Plotly的拖拽模式dragmode设置为lasso，打开页面就默认激活套索工具

修改后的完整代码 #

library(shiny)
library(ggplot2)
library(plotly)

ui <- fluidPage(
  plotlyOutput("po")
)

server <- function(input, output, session) {
  output$po <- renderPlotly({
    p <- ggplot(iris) + geom_point(aes(x=Sepal.Width,y=Sepal.Length,color=Species))
    p <- toWebGL(p)
    
    # 转换为plotly对象后，配置布局：默认套索+禁用缩放
    p %>%
      plotly::layout(
        dragmode = "lasso", # 默认启用套索选择
        xaxis = list(fixedrange = TRUE), # 禁用X轴缩放
        yaxis = list(fixedrange = TRUE)  # 禁用Y轴缩放
      ) %>%
      plotly::config(
        displaylogo = FALSE,
        # 仅保留套索和矩形选择工具，其余全部移除
        modeBarButtonsToKeep = list("lasso2d", "select2d")
      )
  })
}

shinyApp(ui, server)

代码说明 #

1. plotly::layout(dragmode = "lasso")：直接把默认拖拽模式设为套索，用户打开页面就能直接用套索选择，不需要手动点击工具栏按钮
2. xaxis/yaxis = list(fixedrange = TRUE)：彻底锁定坐标轴范围，禁止任何形式的缩放（包括鼠标滚轮、拖拽缩放）
3. modeBarButtonsToKeep = list("lasso2d", "select2d")：明确指定只保留套索和矩形选择工具，比移除按钮的方式更稳妥，避免遗漏

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