Программирование на гистограмме сгруппированных столбцов с несколькими осями 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

У меня проблема в том, что две группы баров перекрываются. Для меня невозможно видеть это сгруппированным, в стороне друг от друга. Как я могу представить это с двумя группами баров?

Любая идея?