Избегание сортировки оси X и оси Y в алфавитном порядке на воздушном шаре ggplot2

Я пытаюсь создать график граненого шара, используя пакет ggpubr в R. Однако ось X и ось Y автоматически сортируются в алфавитном порядке, как показано в ссылке на изображение. Я хочу, чтобы порядок уровней по оси X был B A D C E на финальном графике вместо A B C D E. Пожалуйста, дайте мне несколько предложений.

library (readxl)
library(ggpubr)
obs=read_excel("baloon plot.xlsx",sheet = "Sheet2")
my_cols <- c("#0D0887FF", "#6A00A8FF", "#B12A90FF",
             "#E16462FF", "#FCA636FF", "#F0F921FF")
ggballoonplot(as.data.frame(obs), x = "Location", y = "Season",
              size = "NSE", fill = "NSE")+
  gradient_fill(c("blue", "white", "red"))+facet_wrap("Model")+
  guides(size = FALSE)+
  theme_gray() +
  theme(text=element_text(family="Times New Roman", face="bold", size=14, color = "black"))+
  scale_y_discrete(name = "Season") +
  scale_x_discrete(name = "Location")