R/plotFeatureOverlaps.R

In AdrijaK/omicsWrappers: wrapper functions for integrating and visualising ChIPseq, ATACseq, Hi-C, pcHi-C and RNAseq data

#' plot the overlaps with features in a particular way
#'
#' a wrapper function to plot the overlap counts in a particular way
#' @param long_tibble a 'long' format tibble with columns names `cathegory`(factor), `nonzero_features_count`(numeric), `Status`(factor)
#' @returns ggplot object
#' @export

plotFeatureOverlaps = function(long_tibble){

  library(ggplot2)

  output =
    ggplot(
      long_tibble, aes(x = cathegory, y = nonzero_features_count, fill = Status)) +
    geom_bar(stat='identity', position = 'dodge') +
    scale_fill_manual(values=c("navy","lightgray", "deeppink3")) +
    ggtitle("% of promoters that overlap the feature") +
    ylim(0,100) +
    ylab("% of promoters") +
    xlab("features")+
    theme_classic()

  return(output)
}