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

R/RNA-seq.R

+8 −9

Original line number	Diff line number	Diff line
		@@ -299,6 +299,7 @@ c.volcano <- function(
		.data,
		compare = NULL,
		compare_label = NULL,
		compare_label_size = ,
		top_gene_number = 10,
		fold_change = 2,
		p_value = 0.05,
		@@ -451,14 +452,6 @@ c.volcano <- function(
		show.legend = show_legend
		)

		if(length(compare_label) != n_compare){
		plot <- plot +
		facet_wrap(~ compare)
		}else{
		plot <- plot +
		facet_wrap(~ compare_label)
		}

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

		if(isFALSE(hyperbola)){
		@@ -619,7 +612,13 @@ c.volcano <- function(
		)
		}

		plot
		if(length(compare_label) != n_compare){
		plot +
		facet_wrap(~ compare)
		}else{
		plot +
		facet_wrap(~ compare_label)
		}
		}