draw_cum_freq {MetaVolcanoR} | R Documentation |
This function create a ggplot object with the inverse-cummulative DEG distribution
draw_cum_freq(meta_diffexp, nstud)
meta_diffexp |
data.frame/data.table containing all the input studies |
nstud |
the number of inputed GEO2R outputs <integer> |
ggplot2
object
library(dplyr) data(diffexplist) diffexp <- lapply(diffexplist, function(...) deg_def(..., "pvalue", "Log2FC", 0.05, 0)) diffexp <- rename_col(diffexp, "Symbol") meta_diffexp <- Reduce(function(...) merge(..., by = "Symbol", all = TRUE), diffexp) meta_diffexp %>% dplyr::select(dplyr::matches("deg_")) %>% data.matrix -> n_deg meta_diffexp[['ndeg']] <- rowSums(n_deg^2, na.rm = TRUE) gg <- draw_cum_freq(meta_diffexp, length(diffexplist)) plot(gg)