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 )

Beginne damit, die bereitgestellte R-Reproduktion in plotly.R mit sowohl geordnetem als auch ungeordnetem Data Frame auszuführen. Verfolge die Verarbeitung der Marker-Opazität im gruppierten Balkendiagramm und vergleiche die Opazität jedes Balkens mit den Werten im Data Frame. Die Aufgabe ist erledigt, wenn die Anordnung der Daten nicht mehr verändert, welche Balken eine reduzierte Opazität erhalten.