如何使用 R Plotly 在后台将分组和堆栈条形图与 layout.shape 组合?

How can I combine group and stack bar chart with layout.shape in background using R Plotly?

我正在尝试创建一个可视化效果,我需要同时使用堆栈和组条形图。 我使用的数据有几千行,下面是其中的一个子集。

 Month      Week   Cat   n
_____________________________
 2019-Dec    4      A    17
 2019-Dec    4      B    6
 2019-Dec    5      A    21
 2019-Dec    5      C    10
 2020-Jan    1      A    19
 2020-Jan    1      B    20
 2020-Jan    1      C    12

我想要的情节是这样的:

其中按月分组按猫堆叠,区分不同的我想在不同周的背景中添加矩形形状 (https://plotly.com/r/shapes/)。

提前致谢!

正如评论中提到的堆叠+分组条形图aren't implemented yet in plotly。这是 ggplot2 / ggplotly 解决方法:

library(plotly)
library(ggplot2)

DF <- data.frame(
  stringsAsFactors = FALSE,
             Month = c("2019-Dec","2019-Dec",
                       "2019-Dec","2019-Dec","2020-Jan","2020-Jan","2020-Jan"),
              Week = c(4L, 4L, 5L, 5L, 1L, 1L, 1L),
               Cat = c("A", "B", "A", "C", "A", "B", "C"),
                 n = c(17L, 6L, 21L, 10L, 19L, 20L, 12L)
)

p <- ggplot(DF, aes(x = Week, y = n, fill = Cat)) + geom_bar(stat = 'identity', position = 'stack') + facet_grid( ~ Month) + theme_bw()

ggplotly(p)