modified RNA-seq.R in R (1aeadcbf) · Commits · Chaos / chaos.tools

R/RNA-seq.R

+33 −22

Original line number	Diff line number	Diff line
		@@ -424,6 +424,7 @@ c.volcano <- function(
		color_all <- c(color_down,color_ns,color_special,color_up)
		}

		if(isFALSE(show_legend)){
		plot <- ggplot() +
		geom_point(
		data = dt[color == "not_sig"],
		@@ -449,6 +450,16 @@ c.volcano <- function(
		color = color_special,
		size = point_size
		)
		}else{
		plot <- ggplot(
		data = dt,
		aes(log2FC,log10P,color = color)
		) +
		geom_point(size = point_size) +
		scale_color_manual(
		values = color_all
		)
		}

		xlimits <- max(abs(min(dt$log2FC)),abs(max(dt$log2FC))) + extend_size