Plotly R（Shiny）无法设置colorbar水平显示问题求助

在Shiny应用中开发Plotly散点图可视化功能时，需配置水平方向的colorbar。参照Plotly R官方文档对layout.coloraxis.colorbar.orientation配置项的说明，设置orientation="h"即可将色条调整为水平方向，但多次调试参数后始终无法实现colorbar水平显示的效果。
使用iris内置数据集的最小可复现代码如下：

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)

仅设置orientation="h"时，Plotly不会自动调整colorbar的锚点位置和边距适配，默认的垂直色条位置参数会导致水平色条被画布边缘裁切，视觉上呈现为参数不生效的状态。

在colorbar配置项中补充位置锚点、坐标参数，同步调整底部边距预留足够的显示空间，核心修改的配置段如下：

layout(
  showlegend=FALSE,
  # 加大底部边距，给水平色条留足显示空间
  margin=list(b=80),
  coloraxis=list(
    colorbar=list(
      orientation="h",
      x = 0.5, # 色条水平方向居中
      y = -0.2, # 色条放在绘图区域下方
      xanchor = "center",
      yanchor = "top",
      len = 0.7 # 调整色条长度，避免超出画布范围
    )
  )
)

替换原有layout配置后重新运行，即可看到正常显示在图表底部的水平colorbar，可根据实际画布大小调整y、len、b参数适配显示效果。

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