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

R/RNA-seq.R

+4 −8

Original line number	Diff line number	Diff line
		@@ -429,29 +429,25 @@ c.volcano <- function(
		data = dt[color == "not_sig"],
		aes(log2FC,log10P),
		color = color_ns,
		size = point_size,
		show.legend = show_legend
		size = point_size
		) +
		geom_point(
		data = dt[color == "up"],
		aes(log2FC,log10P),
		color = color_up,
		size = point_size,
		show.legend = show_legend
		size = point_size
		) +
		geom_point(
		data = dt[color == "down"],
		aes(log2FC,log10P),
		color = color_down,
		size = point_size,
		show.legend = show_legend
		size = point_size
		) +
		geom_point(
		data = dt[color == special_label],
		aes(log2FC,log10P),
		color = color_special,
		size = point_size,
		show.legend = show_legend
		size = point_size
		)

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