####---- Differential Expression Signatures 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*>
for (signature in 1:nrow(signature_summary))
{
  all_gene_sets = read.table(file=paste0("data/statistical_analysis/differential_expression_signature/over_representation_analysis/<*type*>/signature_",signature,"/all_gene_sets_results.csv"), header=TRUE, sep='\t', quote='',check.names = TRUE)
  enriched_gene_sets = read.table(file=paste0("data/statistical_analysis/differential_expression_signature/over_representation_analysis/<*type*>/signature_",signature,"/enriched_gene_sets_results.csv"), header=TRUE, sep='\t', quote='',check.names = TRUE)
  top_10_gene_sets = get_top10_oras_by_p_value(all_gene_sets,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,paste0("<*path*>plots/differential_expression_signature/signature_ora_enrichment/<*type*>/<*/path*>signature_",signature,"_enriched_gene_sets_barchart.png"))
}
<*/per_ora*>
