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 )

Bắt đầu bằng cách chạy bản tái hiện R được cung cấp trong plotly.R với data frame ở cả trạng thái đã sắp xếp và chưa sắp xếp. Theo dõi cách xử lý độ mờ của marker trong biểu đồ cột nhóm và so sánh độ mờ của từng cột với các giá trị trong data frame. Hoàn thành khi việc sắp xếp dữ liệu không còn làm thay đổi các cột nhận độ mờ giảm.