From 9bde45d070828a752251823a0ea37c42faa9e9f2 Mon Sep 17 00:00:00 2001
From: hpolvech <helene.polveche@ens-lyon.fr>
Date: Thu, 14 Oct 2021 09:39:59 +0200
Subject: [PATCH] solution 2a
---
session_4/session_4.Rmd | 18 +++++++++++++++++-
1 file changed, 17 insertions(+), 1 deletion(-)
diff --git a/session_4/session_4.Rmd b/session_4/session_4.Rmd
index 722c1fc..1b572b6 100644
--- a/session_4/session_4.Rmd
+++ b/session_4/session_4.Rmd
@@ -476,15 +476,31 @@ First, we will use the gene count table of these samples, formatted for use in g
Open the csv file using the `read_csv2()` function. The file is located at "XXX".
-
<details><summary>Solution</summary>
<p>
```{r read_csv1}
expr_DM1 <- read_csv2("XXX/Expression_matrice_pivot_longer_DEGs_GSE86356.csv")
+
+expr_DM1
```
</p>
</details>
+With this tibble, use `ggplot2` and the `geom_tile()` function to make a heatmap.
+Fit the samples on the x-axis and the genes on the y-axis.
+**Tip:** Transform the counts into log10(x + 1) for a better visualization.
+
+<details><summary>Solution</summary>
+ <p>
+ggplot(expr_DM1, aes(samples, Genes, fill= log1p(counts))) +
+ geom_tile() +
+ labs(y="Genes", x = "Samples") +
+ theme(
+ axis.text.y = element_text(size= 4),
+ axis.text.x = element_text(size = 4, angle = 90)
+ )
+ </p>
+</details>
--
GitLab