R Plotly - group/stacked bar graph

Question

I\'m trying to incorporate stacked colors into a plotly grouped bar graph.

Take this example:

if (interactive()) {
  library(plotly)
  
  year <- c(