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

Beginne damit, das bereitgestellte R plot_ly-Beispiel auszuführen und die xaxis-Einstellungen von layout zu untersuchen, insbesondere categoryorder, tickvals und ticktext. Vergleiche die alphabetische Sortierung von Beschriftungen mit gemischter Groß-/Kleinschreibung und überprüfe, dass Legende, x-Achsen-Kategorien und Fehlerbalken dieselbe Reihenfolge verwenden. Erledigt ist die Aufgabe, wenn Beschriftungen mit gemischter Groß-/Kleinschreibung alphabetisch sortiert sind, ohne dass die Fehlerbalken falsch zugeordnet werden.

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