add parameter to change hyperbola line color and type (b3fbfcc6) · Commits · Chaos / chaos.tools

R/RNA-seq.R

+6 −5

Original line number	Diff line number	Diff line
		@@ -179,9 +179,10 @@ volcano_plot <- function(
		hyperbola = FALSE,
		p_line_type = "dashed",
		fc_line_type = "dashed",
		hyperbola_line_type = "dashed",
		p_line_color = "black",
		left_fc_line_color = "black",
		right_fc_line_color = "black",
		fc_line_color = "black",
		hyperbola_line_color = "black",
		font = "serif"
		){
		if(is.null(sub_gene)){sub_gene <- .data$gene_name}
		@@ -298,7 +299,7 @@ volcano_plot <- function(
		geom_vline(
		xintercept = c(-log2(fold_change),log2(fold_change)),
		linetype = fc_line_type,
		color = right_fc_line_color
		color = fc_line_color
		) +
		xlim(xlimits * -1, xlimits)
		}else{
		@@ -326,8 +327,8 @@ volcano_plot <- function(
		geom_line(
		data = hyperbola_dt,
		aes(log2FC,hyperbola_log10P),
		linetype = fc_line_type,
		color = left_fc_line_color
		linetype = hyperbola_line_type,
		color = hyperbola_line_color
		) +
		scale_y_continuous(limits = c(0,max(dt$log10P) + 1))
		}