update (9a618d07) · Commits · Chaos / chaos.tools

R/RNA-seq.R

+5 −5

Original line number	Diff line number	Diff line
		@@ -183,7 +183,8 @@ volcano_plot <- function(
		p_line_color = "black",
		fc_line_color = "black",
		hyperbola_line_color = "black",
		font = "serif"
		font = "serif",
		extend_size = 3
		){
		if(is.null(sub_gene)){sub_gene <- .data$gene_name}
		if(is.null(sub_id)){sub_id <- .data$gene_id}
		@@ -286,7 +287,6 @@ volcano_plot <- function(
		) +
		scale_color_manual(values = color_all, label = label_all)

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

		if(isFALSE(hyperbola)){
		@@ -349,7 +349,7 @@ volcano_plot <- function(
		segment.linetype = 3, #线段类型,1为实线,2-6为不同类型虚线
		segment.color = 'black', #线段颜色
		segment.alpha = 0.5, #线段不透明度
		nudge_x = xlimits - dt$log2FC, #标签x轴起始位置调整
		nudge_x = xlimits - 1.5 - dt$log2FC, #标签x轴起始位置调整
		direction = "y", #按y轴调整标签位置方向，若想水平对齐则为x
		hjust = 0,
		fontface = "italic"
		@@ -368,7 +368,7 @@ volcano_plot <- function(
		segment.linetype = 3, #线段类型,1为实线,2-6为不同类型虚线
		segment.color = 'black', #线段颜色
		segment.alpha = 0.5, #线段不透明度
		nudge_x = xlimits * -1 - dt$log2FC, #标签x轴起始位置调整
		nudge_x = (xlimits - 1.5) * -1 - dt$log2FC, #标签x轴起始位置调整
		direction = "y", #按y轴调整标签位置方向，若想水平对齐则为x
		hjust = 0,
		fontface = "italic"
		@@ -387,7 +387,7 @@ volcano_plot <- function(
		segment.linetype = 3, #线段类型,1为实线,2-6为不同类型虚线
		segment.color = 'black', #线段颜色
		segment.alpha = 0.5, #线段不透明度
		nudge_x = xlimits - dt$log2FC, #标签x轴起始位置调整
		nudge_x = xlimits - 1.5 - dt$log2FC, #标签x轴起始位置调整
		direction = "y", #按y轴调整标签位置方向，若想水平对齐则为x
		hjust = 0,
		fontface = "italic"

Admin message