####----ORA Enriched Gene Sets (Bar Charts) ----####

plot_height = 350
plot_width = 1000
x_axis_label = "-log10 p-value"
y_axis_label = ""
non_significant_colour = default_2way_sig_colour
significant_colour = default_2way_non_sig_colour
bar_outline_size = 1
bar_transparency = 0.75
legend_position = "bottom"
significant_name = "significant"
non_significant_name = "non-significant"
data_label_size = 5

<*per_ora*>
top_10_gene_sets = get_top10_oras_by_p_value(<*type*>_all_gene_sets,<*type*>_all_signficant_genes_enriched_gene_sets,"enrichment")
ggp = make_oras_bar_chart(top_10_gene_sets,x_axis_label,y_axis_label,non_significant_colour,significant_colour,bar_outline_size,bar_transparency,legend_position,significant_name,non_significant_name,data_label_size)
save_plot(ggp,plot_height,plot_width,"<*path*>plots/over_representation_analysis/<*type*>/enriched_amongst_all_significant_genes/enriched_gene_sets_barchart.png<*/path*>")

top_10_gene_sets = get_top10_oras_by_p_value(<*type*>_downregulated_gene_sets,<*type*>_downregulated_enriched_gene_sets,"enrichment")
ggp = make_oras_bar_chart(top_10_gene_sets,x_axis_label,y_axis_label,non_significant_colour,significant_colour,bar_outline_size,bar_transparency,legend_position,significant_name,non_significant_name,data_label_size)
save_plot(ggp,plot_height,plot_width,"<*path*>plots/over_representation_analysis/<*type*>/enriched_amongst_downregulated_genes/enriched_gene_sets_barchart.png<*/path*>")

top_10_gene_sets = get_top10_oras_by_p_value(<*type*>_upregulated_gene_sets,<*type*>_upregulated_enriched_gene_sets,"enrichment")
ggp = make_oras_bar_chart(top_10_gene_sets,x_axis_label,y_axis_label,non_significant_colour,significant_colour,bar_outline_size,bar_transparency,legend_position,significant_name,non_significant_name,data_label_size)
save_plot(ggp,plot_height,plot_width,"<*path*>plots/over_representation_analysis/<*type*>/enriched_amongst_upregulated_genes/enriched_gene_sets_barchart.png<*/path*>")
<*/per_ora*>

