Update stats panels with sequencing effort

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
 ```