ggplotly() bar chart render issue

ggplotly() renders a layered bar chart incorrectly; results in stacked bars, see the figures. Any way to remedy? Thanks, Kimmo

data_before = data.frame(
       year = c(2014,2014,2014,2015,2015,2015,2016,2016,2016),
       pet = c("dog","cat","bird","dog","cat","bird","dog","cat","bird"),
       wt = c(56, 25, 26, 10, 19, 41, 16, 17, 13)
  )

data_after = data.frame(
  year = c(2014,2014,2014,2015,2015,2015,2016,2016,2016),
  pet = c("dog","cat","bird","dog","cat","bird","dog","cat","bird"),
  wt = c(49, 18, 19,  3, 12, 34,  9, 10,  6)
)

ggplot()+
  geom_bar(data=data_before,aes(year,wt,fill=pet),stat="identity",position="dodge",width = 0.9,alpha=0.5)+
  geom_bar(data=data_after,aes(year,wt,fill=pet),stat="identity",position="dodge",width = 0.9)+
  xlab("Year") +
  ylab("Weight")

ggplotly()

ggplot chart (correct):

ggplotly() render (incorrect)

首先运行提供的 R 复现代码并比较 ggplot 和 ggplotly 图形，重点关注使用 position="dodge" 的两个分层 geom_bar 调用。跟踪此图表的转换和渲染过程，然后验证 ggplotly 结果是否保留了源图表中显示的分离 dodge 柱形和透明度。