From 136916e1605e47b5095bd7d41dcb809405bff17c Mon Sep 17 00:00:00 2001
From: hpolvech <helene.polveche@ens-lyon.fr>
Date: Thu, 14 Oct 2021 10:42:20 +0200
Subject: [PATCH] demonstration VolcanoPlot
---
session_4/session_4.Rmd | 16 +++++++++++++++-
1 file changed, 15 insertions(+), 1 deletion(-)
diff --git a/session_4/session_4.Rmd b/session_4/session_4.Rmd
index d60a76a..c592c65 100644
--- a/session_4/session_4.Rmd
+++ b/session_4/session_4.Rmd
@@ -605,12 +605,26 @@ library(ggrepel)
</p>
</details>
-Let s **filter** our table into a new variable, top10, to keep only the top 10 according to the adjusted pvalue.
+Let s **filter** our table into a new variable, top10, to keep only the top 10 according to the adjusted pvalue. The **smaller** the adjusted pvalue, the more significant.
+
**Tips :** You can use the [function](https://dplyr.tidyverse.org/reference/slice.html) `slice_min()`
+<details><summary>Solution</summary>
+ <p>
+```{r top10}
top10 <- tab.sig %>%
filter(sig == TRUE) %>%
slice_min(n = 10, padj)
+```
+ </p>
+</details>
+
+The data is ready to be used to make a volcano plot!
+To make the graph below, use `ggplot2`, the functions `geom_point()`, `geom_hline()`, `geom_vline()`, `theme_minimal()`, `theme()` (to remove the legend), `geom_label_repel()` and the function `scale_color_manual()` for the colors.
+
+```{r VolcanoPlotDemo, }
+
+```
--
GitLab