Loading R/RNA-seq.R +10 −4 Original line number Diff line number Diff line Loading @@ -301,6 +301,8 @@ c.volcano <- function( top_gene_number = 10, fold_change = 2, p_value = 0.05, point_size = 0.8, point_shape = 1, special_gene = NULL, special_label = "special", show_p = TRUE, Loading Loading @@ -414,28 +416,32 @@ c.volcano <- function( data = dt[color == "not_sig"], aes(log2FC,log10P), color = color_ns, size = 0.8, size = point_size, shape = point_shape, show.legend = show_legend ) + geom_point( data = dt[color == "up"], aes(log2FC,log10P), color = color_up, size = 0.8, size = point_size, shape = point_shape, show.legend = show_legend ) + geom_point( data = dt[color == "down"], aes(log2FC,log10P), color = color_down, size = 0.8, size = point_size, shape = point_shape, show.legend = show_legend ) + geom_point( data = dt[color == special_label], aes(log2FC,log10P), color = color_special, size = 0.8, size = point_size, shape = point_shape, show.legend = show_legend ) + facet_wrap(~ compare) Loading Loading
R/RNA-seq.R +10 −4 Original line number Diff line number Diff line Loading @@ -301,6 +301,8 @@ c.volcano <- function( top_gene_number = 10, fold_change = 2, p_value = 0.05, point_size = 0.8, point_shape = 1, special_gene = NULL, special_label = "special", show_p = TRUE, Loading Loading @@ -414,28 +416,32 @@ c.volcano <- function( data = dt[color == "not_sig"], aes(log2FC,log10P), color = color_ns, size = 0.8, size = point_size, shape = point_shape, show.legend = show_legend ) + geom_point( data = dt[color == "up"], aes(log2FC,log10P), color = color_up, size = 0.8, size = point_size, shape = point_shape, show.legend = show_legend ) + geom_point( data = dt[color == "down"], aes(log2FC,log10P), color = color_down, size = 0.8, size = point_size, shape = point_shape, show.legend = show_legend ) + geom_point( data = dt[color == special_label], aes(log2FC,log10P), color = color_special, size = 0.8, size = point_size, shape = point_shape, show.legend = show_legend ) + facet_wrap(~ compare) Loading
