ggplot2转plotly后点击图例切换系列时图表异常缩放问题求助

问题根因 #

这个异常伸缩是plotly交互时的默认逻辑导致的：双击图例切换系列可见性时，plotly会自动重算坐标轴范围以适配当前可见的数据，和你自定义设置的x轴反转、固定tickvals配置冲突，最终触发布局错乱。你之前设置的autosize是控制图表整体容器尺寸，和坐标轴范围重算逻辑无关，所以不会生效。

修复方案 #

有两个可行的修复方式，按需选择即可：

• 方案1：锁死坐标轴范围，禁止交互时自动重算
  直接在layout的xaxis、yaxis配置中添加固定range，同时将autorange设为FALSE即可，修改后的代码如下：

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

# ui
ui <- bootstrapPage(
  # 也可固定容器尺寸，进一步避免布局抖动
  plotlyOutput('rev', height = "600px", width = "100%")
)

# server
server <- function(input, output) {
  output$rev <- renderPlotly({
    
    p <- ggplot(mpg, aes(x = displ, y = hwy, color = factor(cyl), shape = class)) +
      geom_point(size = 3) +
      scale_color_manual(values = c("4" = "#abd9e9",
                                    "5" = "#2c7bb6",
                                    "6" = "#ff7f00",
                                    "8" = "#d7191c")) +
      scale_shape_manual(values = c(2, 5, 16, 17, 18, 19, 25)) +
      guides(color = guide_legend(title = "Cyl", order = 1),
             shape = guide_legend(title = "", order = 2)) +
      theme_classic(base_size = 16)
    
    ggplotly(p) %>% 
      layout(
        xaxis = list(
          autorange = FALSE, # 关闭自动范围重算
          range = c(max(mpg$displ), min(mpg$displ)), # 因x轴反转，范围按从大到小设置
          tickvals = c(2, 3, 5, 6),
          ticktext = c("2", "", "5", "6")
        ),
        yaxis = list(
          autorange = FALSE, # Y轴也可以同步锁死避免抖动
          range = c(min(mpg$hwy)-1, max(mpg$hwy)+1)
        )
      )
  })
}

shinyApp(ui = ui, server = server)

• 方案2：禁用图例双击交互
  如果不需要双击切换全选/反选的功能，可以直接关闭该交互行为，在ggplotly的链式调用最后加%>% config(doubleClick = FALSE)即可。

修改后双击图例切换系列可见性时，图表不会再出现伸缩错乱的问题。

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