The data frame is provided as an image:
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