在繪圖R中向堆疊的條形圖添加邊框

Question

我在R中將以下代碼與plotly包一起使用，以制作灰度堆疊的條形圖。

hplot1 = plot_ly(big, x=~Month, y=~Cyanophyta, type='bar', name='Cyanophyta', color=I("grey95")) %>%
       add_trace(y=~Chlorophyta, name='Chlorophyta', color=I("grey85")) %>%
       add_trace(y=~Bacillariophyta, name='Bacillariophyta', color=I("grey75")) %>%
       add_trace(y=~Dinophyta, name='Dinophyta', color=I("grey55")) %>%
       add_trace(y=~Cryptophyta, name='Cryptophyta', color=I("grey40")) %>%
       add_trace(y=~Other, name='Other', color=I("grey5")) %>%
       layout(title="2013 Phytoplankton Community", yaxis=list(title='Percent Abundance'), barmode='stack')

我不確定是否可以為每個變量添加邊框（例如，在藍藻周圍為1，在葉綠素周圍為1等）可以這樣做嗎？

提前致謝！

Answer 1

可以像添加常規條形圖一樣，將邊界添加到堆疊條形圖中

marker = list(line = list(width = 5,
                          color = 'rgb(0, 0, 0)'))

到add_trace 。

注意：此處color是必填項，否則該行將不可見。

library(plotly)

Animals <- c("giraffes", "orangutans", "monkeys")
SF_Zoo <- c(20, 14, 23)
LA_Zoo <- c(12, 18, 29)
data <- data.frame(Animals, SF_Zoo, LA_Zoo)

marker_style <- list(line = list(width = 5,
                                 color = 'rgb(0, 0, 0)'));

p <- plot_ly(data, type = 'bar') %>%
  add_trace(x = ~Animals, y = ~SF_Zoo, name = 'SF Zoo', 
            marker = marker_style) %>%
  add_trace(x = ~Animals, y = ~LA_Zoo, name = 'LA Zoo', 
            marker = marker_style) %>%
  layout(barmode = 'stack')

p