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

R/RNA-seq.R

+2 −2

Original line number	Diff line number	Diff line
		@@ -372,9 +372,9 @@ c.volcano <- function(
		][
		,rank := 1:.N,.(compare,sub_regulation)
		][
		,label_up := fcase(rank %in% 1:top_gene_number & sub_regulation == "up",gene_name)
		,label_up := fcase(rank %in% 0:top_gene_number & sub_regulation == "up",gene_name)
		][
		,label_down := fcase(rank %in% 1:top_gene_number & sub_regulation == "down",gene_name)
		,label_down := fcase(rank %in% 0:top_gene_number & sub_regulation == "down",gene_name)
		][
		,label_special := fcase(gene_name %in% special_gene,gene_name)
		]