View source: R/6_multi_deg_all.R
multi_deg_all | R Documentation |
do diffiencial analysis according to exprission set and group information
multi_deg_all(
exp,
group_list,
ids,
symmetry = TRUE,
my_genes = NULL,
show_rownames = FALSE,
cluster_cols = TRUE,
color_volcano = c("#2874C5", "grey", "#f87669"),
pvalue_cutoff = 0.05,
logFC_cutoff = 1,
adjust = FALSE,
entriz = TRUE,
annotation_legend = FALSE,
lab = NA,
species = "human"
)
exp |
A numeric matrix |
group_list |
A factor with duplicated character or factor |
ids |
a data.frame with 2 columns,including probe_id and symbol |
symmetry |
a logical value ,would you like to get your plot symmetrical |
my_genes |
genes for pheatmap |
show_rownames |
boolean specifying if column names are be shown. |
cluster_cols |
boolean values determining if columns should be clustered or |
color_volcano |
color for volcano |
pvalue_cutoff |
Cutoff value of pvalue,0.05 by default. |
logFC_cutoff |
Cutoff value of logFC,1 by default. |
adjust |
a logical value, would you like to use adjusted pvalue to draw this plot,FAlSE by default. |
entriz |
whether convert symbols to entriz ids |
annotation_legend |
boolean value showing if the legend for annotation tracks should be drawn. |
lab |
label for x axis in volcano plot, if NA , x axis names by package |
species |
choose human or mouse, or rat, default: human |
a list with deg data.frame, volcano plot and a list with DEGs.
Xiaojie Sun
geo_download
;draw_volcano
;draw_venn
## Not run:
if(requireNamespace("Biobase",quietly = TRUE)&
requireNamespace("AnnoProbe",quietly = TRUE)){
gse = "GSE474"
geo = geo_download(gse,destdir=tempdir())
geo$exp[1:4,1:4]
geo$exp=log2(geo$exp+1)
group_list=ifelse(stringr::str_detect(geo$pd$title,"MObese"),"MObese",
ifelse(stringr::str_detect(geo$pd$title,"NonObese"),"NonObese","Obese"))
group_list=factor(group_list,levels = c("NonObese","Obese","MObese"))
find_anno(geo$gpl)
ids = AnnoProbe::idmap(geo$gpl,destdir = tempdir())
dcp = multi_deg_all(geo$exp,
group_list,ids,adjust = FALSE,entriz = FALSE)
dcp[[3]]
}else{
if(!requireNamespace("AnnoProbe",quietly = TRUE)) {
warning("Package 'AnnoProbe' needed for this function to work.
Please install it by install.packages('AnnoProbe')",call. = FALSE)
}
if(!requireNamespace("Biobase",quietly = TRUE)) {
warning("Package 'Biobase' needed for this function to work.
Please install it by BiocManager::install('Biobase')",call. = FALSE)
}
}
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.