Scatter points at wrong coordinates when combining multicategory axis and colour

Hi,

When combining a multicategory axis and colour coding in a scatter plot, the mapping of the points seem to go wrong.
In p2 in the example below, the points appear at coordinates that are not in the data.
The problem can be resolved by first ordering the data (p4).

library(plotly)
d <- data.frame(
  l1 = letters[11:15],
  l2 = c('a', 'a', 'a', 'a', 'b'),
  y = 1:10,
  col = LETTERS[11:15],
  stringsAsFactors = F
)
p1 <- plot_ly(
  data = d,
  x = list(~l2, ~l1),
  y = ~y,
  # color = ~col,
  type = 'scatter',
  mode = 'markers'
)
p2 <- plot_ly(
  data = d,
  x = list(~l2, ~l1),
  y = ~y,
  color = ~col,
  type = 'scatter',
  mode = 'markers'
)
d <- d[order(d$l1), ]
p3 <- plot_ly(
  data = d,
  x = list(~l2, ~l1),
  y = ~y,
  # color = ~col,
  type = 'scatter',
  mode = 'markers'
)
p4 <- plot_ly(
  data = d,
  x = list(~l2, ~l1),
  y = ~y,
  color = ~col,
  type = 'scatter',
  mode = 'markers'
)

subplot(p1, p2, p3, p4, nrows = 2, margin = .07) %>% 
  layout(annotations = list(
    list(x = 0.1 , y = 1.05, text = "unordered/uncolored", showarrow = F, xref='paper', yref='paper'),
    list(x = 0.9 , y = 1.05, text = "unordered/colored", showarrow = F, xref='paper', yref='paper'),
    list(x = 0.1 , y = .45, text = "ordered/uncolored", showarrow = F, xref='paper', yref='paper'),
    list(x = 0.9 , y = .45, text = "ordered/colored", showarrow = F, xref='paper', yref='paper')
  )
)

Comienza ejecutando el ejemplo reproducible de R proporcionado y compara el diagrama de dispersión sin ordenar/con colores con los otros paneles. Sigue el manejo de diagramas de dispersión para ejes con múltiples categorías combinados con color; la tarea está terminada cuando los puntos permanecen en las coordenadas de los datos de entrada sin requerir un ordenamiento previo.