R/plot_read_distribution.R

Defines functions plot_read_distribution

Documented in plot_read_distribution

#' @title Distribution of reads
#' @description Plots distribution of reads.
#' @param x \code{\link{phyloseq-class}} object
#' @param groups Metadata variable to check for groups based sequencing effort.
#' @param plot.type Either density or histogram plot
#' @author Contact: Sudarshan Shetty \email{sudarshanshetty9@@gmail.com}
#' @return A \code{\link{ggplot}} plot object.
#' @export
#' @examples
#' library(microbiome)
#' data(zackular2014)
#' ps0 <- zackular2014
#' p <- plot_read_distribution(ps0, groups = "DiseaseState", plot.type = "density")
#' print(p)
#' @keywords visualization utilities

plot_read_distribution <- function(x, groups, 
                                   plot.type = c(
                                     "density",
                                     "histogram"
                                   )) {
  df <- pdfa <- pdfb <- Reads_per_sample <- NULL
  title <- "Distribution of reads in the dataset"

  df <- meta(x)
  SeqDepth <- sample_sums(x)

  # df <- data.table(as(sample_data(x), "data.frame"), Reads_per_sample = sample_sums(x),
  #                 keep.rownames = TRUE)

  df$Reads_per_sample <- SeqDepth

  if (plot.type == "density") {
    p.dfa <- ggplot(df, aes(x = Reads_per_sample, fill = factor(groups))) +
      geom_density(alpha = 0.5, fill = "steelblue") +
      facet_wrap(groups) +
      ggplot2::theme_bw() +
      ggplot2::theme(axis.text.x = element_text(
        angle = 90,
        hjust = 1
      ))
  } else if (plot.type == "histogram") {
    p.dfa <- ggplot(df, aes(x = Reads_per_sample, fill = factor(groups))) +
      geom_histogram(alpha = 0.5) +
      facet_wrap(groups) +
      ggplot2::theme_bw() +
      ggplot2::theme(axis.text.x = element_text(angle = 90, hjust = 1))
  }
  #print("Done plotting")
  return(p.dfa)
}
microsud/microbiomeutilities documentation built on Nov. 29, 2022, 12:18 a.m.