applications : analysis improved

code/applications/base_analysis.qmd

@@ -147,6 +147,9 @@ ggplot(filtered_graph_size) +
     geom_boxplot()
 ```
 
+#### Noeuds par clusters
+
+
 :::
 
 #### Structure des collections
@@ -162,7 +165,7 @@ for (i in seq_len(length(unlisted_best_partition))) {
         p <- plot(
             current_col,
             type = "meso",
-            values = F, mixture = F
+            values = T, mixture = T
         ) +
             ggtitle(paste0("Structure\ncollection ", i))
         print(p)

code/applications/sub-dore/baldock/02_baldock_analysis.qmd

@@ -64,6 +64,36 @@ knitr::kable(vec_bicl,
 )
 ```
 
+
+```{r}
+bicl_df <- do.call(
+    "rbind",
+    lapply(seq_along(list_clustering), function(idx) {
+        partition <- readRDS(list_clustering[[idx]])
+        unlisted_best_partition <- extract_best_partition(partition)
+        if (!is.list(unlisted_best_partition)) {
+            bicl_df <- get_details_bicl(unlisted_best_partition) %>%
+                mutate(clustering = names(list_clustering)[[idx]])
+        } else {
+            bicl_df <- do.call("rbind", lapply(
+                seq_len(length(unlisted_best_partition)),
+                function(idx) {
+                    get_details_bicl(unlisted_best_partition[[idx]]) %>%
+                        mutate(col_id = idx)
+                }
+            )) %>%
+                select(-col_id) %>%
+                summarize_all(sum, na.rm = TRUE) %>%
+                mutate(clustering = names(list_clustering)[[idx]])
+        }
+        bicl_df <- bicl_df %>% relocate(clustering)
+        bicl_df
+    })
+)
+knitr::kable(bicl_df, caption = "Détails des pénalités et du BIC-L", row.names = FALSE)
+
+```
+
 :::{.panel-tabset}
 
 ```{r write_tabs}

code/applications/sub-dore/sous-collection/02_souscol_analysis.qmd

@@ -64,6 +64,37 @@ knitr::kable(vec_bicl,
 )
 ```
 
+
+```{r}
+bicl_df <- do.call(
+    "rbind",
+    lapply(seq_along(list_clustering), function(idx) {
+        partition <- readRDS(list_clustering[[idx]])
+        unlisted_best_partition <- extract_best_partition(partition)
+        if (!is.list(unlisted_best_partition)) {
+            bicl_df <- get_details_bicl(unlisted_best_partition) %>%
+                mutate(clustering = names(list_clustering)[[idx]])
+        } else {
+            bicl_df <- do.call("rbind", lapply(
+                seq_len(length(unlisted_best_partition)),
+                function(idx) {
+                    get_details_bicl(unlisted_best_partition[[idx]]) %>%
+                        mutate(col_id = idx)
+                }
+            )) %>%
+                select(-col_id) %>%
+                summarize_all(sum, na.rm = TRUE) %>%
+                mutate(clustering = names(list_clustering)[[idx]])
+        }
+        bicl_df <- bicl_df %>% relocate(clustering)
+        bicl_df
+    })
+)
+knitr::kable(bicl_df, caption = "Détails des pénalités et du BIC-L", row.names = FALSE)
+
+```
+
+
 :::{.panel-tabset}
 
 ```{r write_tabs}