|
...
|
...
|
@@ -119,12 +119,12 @@ gene_plot <- function(dds,
|
|
119
|
119
|
p <- p +
|
|
120
|
120
|
geom_violin() +
|
|
121
|
121
|
geom_jitter(position = position_jitter(width = 0.2, height = 0)) +
|
|
122
|
|
- stat_summary(fun.y = median, fun.ymin = median, fun.ymax = median,
|
|
|
122
|
+ stat_summary(fun = median, fun.min = median, fun.max = median,
|
|
123
|
123
|
geom = "crossbar", width = 0.3)
|
|
124
|
124
|
} else if (plot_type == "sina" || (plot_type == "auto" & (min_by_groups >= 40))) {
|
|
125
|
125
|
p <- p +
|
|
126
|
126
|
ggforce::geom_sina() +
|
|
127
|
|
- stat_summary(fun.y = median, fun.ymin = median, fun.ymax = median,
|
|
|
127
|
+ stat_summary(fun = median, fun.min = median, fun.max = median,
|
|
128
|
128
|
geom = "crossbar", width = 0.3)
|
|
129
|
129
|
}
|
|
130
|
130
|
|
