implement geom_GeomStrippedCols() to be used with plotly

be able to have every other column striped. works with ggplot, but not with ggplotly

  output$plot = renderPlotly({
    ggplotly(
      ggplot(data, mapping = aes(x = x, y = y)) +
        theme_light() +
        geom_striped_cols() +
        labs(x = "x", y = "y") +
        theme(panel.grid.major.x = element_blank())
    )
  })  

从提供的 renderPlotly 示例开始，跟踪 ggplotly 在转换 ggplot 对象时如何处理 geom_striped_cols()。将正常工作的 ggplot 行为与 Plotly 输出进行比较，然后验证转换后的可视化中是否保留了交替的列条纹。