R编程Plotly条形图分组具有多个y轴的条形图

Question

我正在尝试使用两个不同的Y axis进行分组条形图，以测量两个不同的列。这是数据：

SUCURSAL         EXISTENCIA         COSTO_MEDIO
0 MELENARA        0.128                643.2
1 LAS TORRES      1.872                659.2
2 GALDAR          0.304                659.2
3 SEBADAL         0.851                623.8
4 ARINAGA         0.176                620.4
5 LANZAROTE       0.232                686.4
6 FUERTEVENTURA   0.480                680.2

这是我的代码：

ay <- list(
          tickfont = list(color = "red"),
          overlaying = "y1", 
          side = "right"
        )

p <- plot_ly(dfplot, x = dfplot$SUCURSAL, y = dfplot$EXISTENCIA, type = "bar", opacity = 0.4, name = 'EXISTENCIA', yaxis = "y1") %>%
          add_trace(x = dfplot$SUCURSAL, y = dfplot$COSTO_MEDIO, type = "bar", name = 'COSTO', yaxis = "y2") %>%
          layout( xaxis = list(title = ""), yaxis = list(title = "", tickfont= list(size = 10, color = "black"), showticklabels = TRUE), yaxis2= ay, barmode = 'group' )  %>%
          config(displayModeBar = F)


p

我遇到的问题是两组条形被重叠。我不可能看到它彼此分开。我如何用两组条形图来表示它？

有什么想法吗？