r - 图表底部的图例并水平显示

Question

谁能告诉我如何将下面地图中的密度图例移动到图表底部并使其水平显示？正如您将看到的，用于使用 plotly 执行此操作的传统方法（在布局参数中找到）不起作用。或者，如果有人可以展示一种简单地隐藏颜色条的方法，那也可以：

library(dplyr)
library(plotly)

set.seed(1)

density <- sample(1:100, 50, replace = T)

g <- list(
  scope = 'usa',
  projection = list(type = 'albers usa'),
  lakecolor = toRGB('white')
)

plot_ly() %>%
  layout(geo = g,
         legend = list(orientation = "h",   
                     xanchor = "center",
                     x = 0.5))  %>% 
  add_trace(type = "choropleth", 
            locationmode = 'USA-states',
            locations = state.abb,
            z = ~density, 
            color = ~density)

编辑：添加showscale = F到跟踪隐藏彩条。仍在寻找水平显示它的解决方案！

标签： rplotlychoropleth