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

R/RNA-seq.R

+6 −9

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

		c.volcano <- function(
		c.volcano2 <- function(
		.data,
		compare = NULL,
		compare_label = NULL,
		@@ -403,6 +403,9 @@ c.volcano <- function(
		paste0("N = ",main),
		paste0("N = ",sub,"/",main)
		)
		][
		data.table(compare = selected_compare,compare_label),
		on = .(compare)
		]


		@@ -611,15 +614,9 @@ c.volcano <- function(
		)
		}

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


		simple_ego <- function(