Commit 18a6615e authored by Chaos's avatar Chaos
Browse files

fix a problem that there a additional lines in volcano plot when fold change over 2

parent c72dbc84

R/RNA-seq.R

+1 −1
Original line number Diff line number Diff line
@@ -302,7 +302,7 @@ volcano_plot <- function( 
			hyperbola_dt_l <-	dt[log2FC < 0,.(log2FC = log2FC * -1, hyperbola_log10P)]

		}



		hyperbola_dt <- rbind(hyperbola_dt_l,hyperbola_dt_r)

		hyperbola_dt <- rbind(hyperbola_dt_l,hyperbola_dt_r)[hyperbola_log10P > -log10(p_value)]



		plot <-	plot +

				geom_line(

CRA Git | Maintained and supported by SUSTech CRA and CCSE