使用plotly绘制两组的箱线图

Question

我正在尝试使用plotly绘制两组图形的箱形图，如果我不使用闪亮的应用程序来实现，则效果很好，该图如下所示：

但是当我想在Shiny应用程序中实现这个数字时，两个组是相互关联的，现在看起来像：

我的代码写为：

g2 <- ggplot(df_CL, aes(x = factor(Population, levels = c('NP', 'T2', 'T3', 'PP')), y= value, fill = interaction(Population, variable) )) + geom_boxplot() +
  stat_boxplot(geom ='errorbar')+
  xlab('Population') +
  ylab('Clearnce (L/hr)') +
  labs(fill = 'Legend') + 
  theme_grey()+
  scale_fill_manual(values=c("#F8766D","#C77CFF","#7CAE00","#00BFC4","#faa49e","#ddafff","#a0e100","#00f1f7"))+
  theme(text = element_text(size =16))
  p2 <- ggplotly(g2) # Convert to a plotly object.

我的代码有什么问题？