Update 1_plots.R

xjsun1221 · Mar 3, 2021 · 05e14cb · 05e14cb
1 parent 23a9146
commit 05e14cb
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/1_plots.R b/R/1_plots.R
@@ -183,14 +183,14 @@ draw_volcano <- function(deg,lab=NA,pvalue_cutoff = 0.05,logFC_cutoff= 1,pkg = 1
     dat = switch(EXPR = pkg,
                  v1 = deg[,c(2,5)],
                  v2 = deg[,c(1,4)],
-                 v3 = deg[,c(1,4)],
-                 v4 = deg[,c(1,4)])
+                 v3 = deg[,c("logFC", "P.Value")],
+                 v4 = deg[,c("logFC", "P.Value")])
   }else{
     dat = switch(EXPR = pkg,
                  v1 = deg[,c(2,6)],
                  v2 = deg[,c(1,5)],
-                 v3 = deg[,c(1,5)],
-                 v4 = deg[,c(1,5)])
+                 v3 = deg[,c("logFC", "adj.P.Val")],
+                 v4 = deg[,c("logFC", "adj.P.Val")])
   }
   colnames(dat)[1:2]=c("logFC","P.value")
   #logFC_cutoff <- with(dat,mean(abs(logFC)) + 2*sd(abs(logFC)) )