Plotly R-无法调整配色栏的方向

Question

我正在尝试在具有水平方向的配色栏的闪亮应用程序中创建一个散点图。基于我阅读

经过多次尝试和调整，我找不到一种使配色栏水平显示的方法。

任何帮助将不胜感激。

使用虹膜数据集的最小示例：

library(shiny)


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

server <- function(input, output) {

      ScatterPlot<-reactive({
        plot_ly(
                iris,
                type='scatter',
                mode='lines+markers'
            )%>%
            add_trace(
                x=~Sepal.Length, 
                y=~Sepal.Width,
                mode='markers',
                marker=list(
                  color=~Petal.Length,
                  coloraxis='coloraxis'
                        )
                )%>%
            layout(
                showlegend=FALSE,
                margin=list(b=50),
                coloraxis=list(
                 colorbar=list(
                   orientation="h"
                   )
                  )
                )
                   }
        )
      
      output$Scatter<-renderPlotly({ScatterPlot()})
}

shinyApp(ui = ui, server = server)