polarolouis/mia-stage-2024
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

app : Marginal Dore modification

Browse source
This commit is contained in:
Louis Lacoste 2024-06-18 16:58:14 +02:00
parent a3a44e02a6
commit 42cca18ea1
2 changed files with 11743 additions and 267 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12002
code/applications/dore/02_dore_analysis.html
View file

File diff suppressed because one or more lines are too long

8
code/applications/dore/02_dore_analysis.qmd
View file

@ -1,5 +1,7 @@
---
format: html
format:
html:
embed-resources: true
title: Clustering avec `colSBM` des données Doré et al.
execute:
echo: false
@ -24,7 +26,7 @@ library(ggplot2)
root_app_folder <- file.path(here(), "code", "applications")
source(file.path(root_app_folder, "utils.R"))
data_folder <- file.path(here(), "code", "results", "applications", "dore")
files_vec <- get_recent_files(data_folder, n = 16L, "*iid*")
files_vec <- get_recent_files(data_folder, n = 16L)
files_vec <- identify_models(files_vec, pattern = "(iid|pirho|pi|rho)_seed_[0-9]{1,4}")
names(files_vec) <- names(files_vec) %>% str_replace_all(pattern = "_", "~")
list_clustering <- files_vec
@ -115,7 +117,7 @@ ggplot(ari_plot_data) +
aes(x = Var1, y = Var2) +
geom_raster(aes(fill = value)) +
scale_fill_gradient(low = "white", high = "red", limits = c(0, 1)) +
geom_text(aes(label = round(value, digits = 4))) +
geom_text(aes(label = round(value, digits = 2))) +
labs(
x = "id clusterings",
y = "id clusterings", title = "ARI entre les clusterings"