From 05e14cb495459db8a26889f7a226a0d96352e17a Mon Sep 17 00:00:00 2001
From: Xiaojie Sun <58470952+xjsun1221@users.noreply.github.com>
Date: Wed, 3 Mar 2021 15:19:18 +0800
Subject: [PATCH] Update 1_plots.R

---
 R/1_plots.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/1_plots.R b/R/1_plots.R
index dfdbaae..b977dde 100644
--- 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)) )