Unable to cluster different GO_categories so that it does not look scattered as in my case?

The data frame is provided as an image:
DataFrame

The code is:

Bubble_plot_5 <- read_excel("GO_Bubble_plot.xlsx", sheet = "GO_5")
view(Bubble_plot_5)

ggplot(Bubble_plot_5, aes(y = reorder(GO_Term, as.numeric(GO_Category)), x = Gene_Count,
                          size = Gene_Count))+
  geom_point(aes(color = GO_Category), alpha = 3.0)+
  geom_tile(aes(width = Inf, fill = GO_Category), alpha = 0.4)+
  scale_fill_manual(values = c("green", "red", "blue"))

Being a new user, I am unable to embed more images. Please see this link https://www.biostars.org/p/9492752/

The output I need is in this post: https://www.biostars.org/p/463626/#9492756