Capital Letters affect alphabetical ordering causing wrong order of legend and x axis

Inizia eseguendo l’esempio R plot_ly fornito e analizza le impostazioni xaxis di layout, in particolare categoryorder, tickvals e ticktext. Confronta l’ordinamento alfabetico delle etichette con maiuscole e minuscole miste e verifica che legenda, categorie dell’asse x e barre di errore utilizzino lo stesso ordine. Il lavoro è completato quando le etichette con maiuscole e minuscole miste sono ordinate alfabeticamente senza disallineare le barre di errore.

legend order and x axis of bar graph is not fully ordered alphabetically, capital letters take priority causing miss aligned error bars due to different order.

only way to solve my issue was making everything lower case for example PPARy1 was being listed before Perilipin but once lower case it was correct order.

chemical_ct <- SharedData$new(CTdf)

# Step 2-4: Loop through each unique gene, subset data, and create shared objects
filter_checkbox("chl", "chemical", chemical_ct, ~chemicalgroup, inline = TRUE)
if(analysistype=="western"){
  filter_checkbox("prn", "protein", chemical_ct, ~protein, inline = TRUE)
}else{ 
  filter_checkbox("gene", "gene", chemical_ct, ~gene, inline = TRUE)
}

# Specify a set of main colors
main_colors <- c("red", "blue", "green", "yellow", "orange", "purple", "cyan", "magenta", "brown", "gray")

plot <-plot_ly(
  data = chemical_ct,
   error_y = ~list(
    type = 'data', 
    array = CTdf$SEM,
    color = "black"
  ),
  x = ~chemical,
  y = ~average_RQ,
  type = 'bar',
  color = ~graphing_sort,
  colors = main_colors,
  name = ~chemical, 
  
  texttemplate = ~Letters,
  textposition = "outside",
  textfont = list(color = "black",
                  size = 30),
  outsidetextfont = list(color="black")
 
) %>%
  layout(
    xaxis = list(title = "Chemical Concentration",
                 tickmode = 'array',  # Set tick mode to 'array'
                  tickvals = ~chemical,  # Set tick values to be the same as x 
                    ticktext = ~chemical,
                 tickangle = 90,
                 categoryorder = "category ascending"),
    yaxis = list(title = "Fold Change"),
    bargap = 0.1,
    width = 800, 
    height = 800
  ) 
plot