ggplotly not working with control chart library ggQC

Brief description of the problem:

Adding some lines and labels using the ggQC library causes a hard fail.

This code works with ggplotly:

      min_date = as.Date(min(lots_df_filtered()$DATE))
      max_date = as.Date(max(lots_df_filtered()$DATE))
      if (!is.na(min_date)) {
        num_days = length(seq(from = min_date, to = max_date, by = 'day')) - 1
        date_breaks <- if(num_days <= 31) 'day' else 'week'
        XmR_Plot <- 
            ggplot(lots_df_filtered(), aes(x = as.Date(DATE), y = YRS_YIELD)) +
            geom_point(alpha = .5) + geom_line() +
            labs(title=paste0(input$mfg_step_name, ' Lot Yield Control Chart')) +
            scale_x_date(date_breaks=date_breaks) +
            theme_ipsum_ps() +
            theme(axis.text.x = element_text(angle = 60, vjust = 0.5, hjust=1),
                  axis.title.x=element_blank()) 
        output$lot_time_series <- renderPlotly(ggplotly(XmR_Plot))
      }`

Produces a nice chart as so:

The following code results in an error (alpha must be of length 1 or the same length as x):

      min_date = as.Date(min(lots_df_filtered()$DATE))
      max_date = as.Date(max(lots_df_filtered()$DATE))
      if (!is.na(min_date)) {
        num_days = length(seq(from = min_date, to = max_date, by = 'day')) - 1
        date_breaks <- if(num_days <= 31) 'day' else 'week'
        XmR_Plot <- 
            ggplot(lots_df_filtered(), aes(x = as.Date(DATE), y = YRS_YIELD)) +
            geom_point(alpha = .5) + geom_line() +
            stat_QC(method = "XmR",      
                    auto.label = T, 
                    label.digits = 2,   
                    show.1n2.sigma = T   
                    ) +
            labs(title=paste0(input$mfg_step_name, ' Lot Yield Control Chart')) +
            scale_x_date(date_breaks=date_breaks) +
            theme_ipsum_ps() +
            theme(axis.text.x = element_text(angle = 60, vjust = 0.5, hjust=1),
                  axis.title.x=element_blank()) 
        output$lot_time_series <- renderPlotly(ggplotly(XmR_Plot))
      }

Here is what the ggplot looks like when I do not use ggplotly and do use ggCC:

Could this be related to the ggplotly argument layerData? Any help is appreciated.

thx

首先运行提供的 R 复现代码，使用 ggplotly、ggplot2 和 ggQC，并将正常工作的图与使用 stat_QC() 的版本进行比较。调查报告的“alpha must be of length 1 or the same length as x”失败，并确认控制图图层能够通过 ggplotly 进行渲染，而不会发生硬错误。