r - 具有负值的ggplot2堆积条不适用于Plotly

Question

我尝试了前一个线程中答案中的代码，ggplot2 and a Stacked Bar Chart with Negative Values .

dat <- read.table(text = "   Division Year OperatingIncome
1  A  2012           11460
  2  B  2012            7431
  3  C  2012           -8121
  4  D  2012           15719
  5  E  2012             364
  6  A  2011           12211
  7  B  2011            6290
  8  C  2011           -2657
  9  D  2011           14657
  10 E  2011            1257
  11 A  2010           12895
  12 B  2010            5381
  13 C  2010           -2408
  14 D  2010           11849
  15 E  2010             517",header = TRUE,sep = "",row.names = 1)

dat1 <- subset(dat,OperatingIncome >= 0)
dat2 <- subset(dat,OperatingIncome < 0)
plot <- ggplot() + 
  geom_bar(data = dat1, aes(x=Year, y=OperatingIncome, fill=Division),stat = "identity") +
  geom_bar(data = dat2, aes(x=Year, y=OperatingIncome, fill=Division),stat = "identity") +
  scale_fill_brewer(type = "seq", palette = 1)
ggplotly(plot)

这是我得到的:

如果我运行 plot(plot) 然后它工作正常:

如何解决 Plotly 中的问题？

Answer 1

对于 future 的读者

如今，plotly(我正在使用 4.8.0)支持具有负值的堆叠条形图。在 layout 中，您必须设置 barmode=relative。此外，您还可以使用问题中发布的 ggplotly 功能。

plot_ly(dat, y=~OperatingIncome, x=~Year, type='bar', name=~Division, color =~Division, 
        colors='Blues', marker=list(line=list(width=1, color='lightgray'))) %>% 
  layout(barmode = 'relative')

将返回: