Opacity in Grouped Bar Charts with data.frame

When plotting a grouped bar chart with variable opacity with data in a data.frame, the opacity assigned to each column is not the one specified in the data.frame. In the example below, the 2 bars in group "A" are plotted with reduced opacity, as opposed to the 2 bars with colour "C". Strangely, if the data.frame is not ordered then it plots correctly.

library( plotly )

data  = data.frame( 
  x      = c( "A", "B", "A", "B" ),
  y      = c(   1,   2,   3,   4 ),
  z      = c( "C", "C", "D", "D" ),
 opacity = c( 0.3, 0.3,   1,   1 )
)

# removing this lines the plot is correct
data = data[ order( data$x ),]

p = plot_ly( 
  data   = data, 
  x      = ~x, 
  y      = ~y, 
  color  = ~z, 
  marker = list( opacity = ~opacity ),
  type   = "bar" ) %>% 
layout( barmode = "group" )
show( p )

Empieza ejecutando la reproducción de R proporcionada en plotly.R con el marco de datos tanto ordenado como sin ordenar. Rastrea el manejo de la opacidad de los marcadores en el gráfico de barras agrupadas y compara la opacidad de cada barra con los valores del marco de datos. La tarea está terminada cuando ordenar los datos ya no cambia qué barras reciben una opacidad reducida.