From 65e305e29725f1752e0e6bd4dd2e213159561fa6 Mon Sep 17 00:00:00 2001
From: Louis <louis.lacoste@agroparistech.fr>
Date: Thu, 19 Feb 2026 10:39:15 +0100
Subject: [PATCH] Update stats panels with sequencing effort

---
 stats_panel.qmd | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/stats_panel.qmd b/stats_panel.qmd
index 4db72e3..1b684ca 100644
--- a/stats_panel.qmd
+++ b/stats_panel.qmd
@@ -91,6 +91,7 @@ otu_table_plot
 ```
 
 ```{r}
+#| eval: false
 # Below the graph of taxa abundance
 # otus <- per_taxa_no_names <- collapse_otu_at_taxo(phylo_data = the_data, renameOTUs = FALSE)
 otu_mat <- as(otu_table(the_data), "matrix")
@@ -170,4 +171,20 @@ kables_sd <- lapply(per_taxa_network, function(matrix) {
     kable(sd_df, row.names = FALSE)
 })
 kables_sd
+```
+
+```{r}
+boxplots <- lapply(per_taxa_network, function(matrix) {
+    df_mat <- stack(as.data.frame(t(matrix)))
+    ggplot(df_mat, aes(y = values, x = ind, fill = ind)) +
+        geom_boxplot()
+})
+boxplots[-7]
+```
+
+```{r}
+seq_effort <- lapply(per_taxa_network, function(matrix) {
+    colSums(matrix)
+})
+seq_effort
 ```
\ No newline at end of file