50 lines
No EOL
1.9 KiB
R
50 lines
No EOL
1.9 KiB
R
#!/usr/bin/env Rscript
|
|
# load libraries
|
|
#########################################################
|
|
# TASK: function for basic barplot returning stability counts
|
|
#########################################################
|
|
# load libraries and functions
|
|
library(ggplot2)
|
|
theme_set(theme_grey())
|
|
#==========================================================
|
|
# my_stability_count(): basic barplots for stability counts
|
|
# input args
|
|
## df containing data to plot
|
|
## df column name containing stability outcome
|
|
## legend title
|
|
## ...opt args
|
|
#==========================================================
|
|
stability_count_bp <- function(plotdf
|
|
, df_colname
|
|
, leg_title
|
|
, axis_text_size = 25
|
|
, axis_label_size = 22
|
|
, leg_text_size = 20
|
|
, yaxis_title = "Number of nsSNPs"
|
|
, bp_plot_title = ""){
|
|
|
|
OutPlot_count = ggplot(plotdf, aes(x = eval(parse(text = df_colname)))) +
|
|
geom_bar(aes(fill = eval(parse(text = df_colname))), show.legend = TRUE) +
|
|
geom_label(stat = "count"
|
|
, aes(label = ..count..)
|
|
, color = "black"
|
|
, show.legend = FALSE
|
|
, size = 10) +
|
|
theme(axis.text.x = element_blank()
|
|
, axis.title.x = element_blank()
|
|
, axis.title.y = element_text(size = axis_label_size)
|
|
, axis.text.y = element_text(size = axis_text_size)
|
|
, legend.position = c(0.73,0.8)
|
|
, legend.text = element_text(size = leg_text_size)
|
|
, legend.title = element_text(size = axis_label_size)
|
|
, plot.title = element_text(size = axis_label_size)) +
|
|
labs(title = bp_plot_title
|
|
, y = yaxis_title) +
|
|
scale_fill_discrete(name = leg_title
|
|
, labels = c("Destabilising", "Stabilising"))
|
|
|
|
return(OutPlot_count)
|
|
}
|
|
#############################################################
|
|
# end of function
|
|
############################################################# |