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

R/RNA-seq.R

+8 −2

Original line number	Diff line number	Diff line
		@@ -295,7 +295,7 @@ de.gene <- function(
		set_names(sub_dt$commpare \|> unique())
		}

		c.volcano2 <- function(
		c.volcano <- function(
		.data,
		compare = NULL,
		compare_label = NULL,
		@@ -440,7 +440,13 @@ c.volcano2 <- function(
		show.legend = show_legend
		) +
		geom_point(
		data = dt[color == "down"],
		if(length(compare_label) != n_compare){
		plot <- plot +
		facet_wrap(~ compare)
		}else{
		plot <- plot +
		facet_wrap(~ compare_label)
		}data = dt[color == "down"],
		aes(log2FC,log10P),
		color = color_down,
		size = point_size,