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

Bắt đầu bằng cách chạy ví dụ R plot_ly được cung cấp và kiểm tra các thiết lập xaxis của layout, đặc biệt là categoryorder, tickvals và ticktext. So sánh thứ tự alphabet của các nhãn có cách viết hoa và viết thường lẫn lộn, đồng thời xác minh rằng chú giải, các danh mục trên trục x và các thanh sai số sử dụng cùng một thứ tự. Được xem là hoàn tất khi các nhãn có cách viết hoa và viết thường lẫn lộn được sắp xếp theo alphabet mà không làm các thanh sai số bị lệch.

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