Plotly堆积条形图 - 不正确的图例中的颜色

Question

我正在尝试在plotly (plotly_4.5.6)中根据此处的数据绘制堆积条形图：

> dane
visit_source variable value
1      organic     2016    32
2       social     2016    20
3           hp     2016    24
4      branded     2016    24
5      organic     2015    25
6       social     2015    25
7           hp     2015    25
8      branded     2015    25

使用此代码：

library("dplyr")
library("plotly")

plot_ly(dane, y = ~variable, x = ~value, color = ~visit_source, text = ~paste0(value, "%"),
        type = "bar", hoverinfo = "text+name", marker = list(line = list(color = "white", width = 2))) %>%
    layout(barmode = "stack",
           legend = list(orientation = "h"),
           xaxis = list(ticksuffix = "%"),
           yaxis = list(title = ""))

我明白了：

但是当我稍微修改data.frame（仅删除一行）时，图例中的某些颜色变为黑色。像这里：

plot_ly(dane[-1, ], y = ~variable, x = ~value, color = ~visit_source, text = ~paste0(value, "%"),
        type = "bar", hoverinfo = "text+name", marker = list(line = list(color = "white", width = 2))) %>%
    layout(barmode = "stack",
           legend = list(orientation = "h"),
           xaxis = list(ticksuffix = "%"),
           yaxis = list(title = ""))

如果我levels visit_source year value 0等于hover，那么它可以正常工作，但也会出现在structure(list(visit_source = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c("organic", "social", "hp", "branded"), class = "factor"), variable = c("2016", "2016", "2016", "2016", "2015", "2015", "2015", "2015"), value = c(32, 20, 24, 24, 25, 25, 25, 25 )), class = "data.frame", .Names = c("visit_source", "variable", "value"), row.names = c(NA, -8L)) -> dane 中}，我不喜欢。

你知道这里有什么问题吗？谢谢你的帮助！

我的数据：

{{1}}

Answer 1

尝试安装Plotly（4.5.6.9000）的最新开发者版本，它应该可以正常工作

df = data.frame(visit_source=c('organic', 'social', 'hp', 'branded', 'organic', 'social', 'hp', 'branded'), 
                variable = c(rep('2016', 4), rep('2015',4)),
                value=c(32, 20, 24, 24, 25, 25, 25, 25))


library("dplyr")
library("plotly")

plot_ly(df[-1,], y = ~variable, x = ~value, color = ~visit_source, text = ~paste0(value, "%"),
        type = "bar", hoverinfo = "text+name", marker = list(line = list(color = "white", width = 2))) %>%
  layout(barmode = "stack",
         legend = list(orientation = "h"),
         xaxis = list(ticksuffix = "%"),
         yaxis = list(title = ""))