####---- Distribution of Expression Values Function ----####

make_distribution_of_expression_values_plot <- function(plot_sample, plot_sample_label, plot_colour,transparency, line_thickness, x_axis_label, y_axis_label, legend_position)
{
  ggp = ggplot(ne_matrix, aes(log10(x=ne_matrix[[plot_sample]]+0.001))) +
    geom_density(colour=plot_colour,fill=plot_colour, alpha=transparency,size=line_thickness) +
    labs(x=x_axis_label, y=y_axis_label, title=plot_sample_label) +
    scale_x_continuous(expand=c(0,0)) +
    scale_y_continuous(expand=c(0,0)) +
    theme_SL2() + 
    theme(legend.position=legend_position)

  return(ggp)
}

