require("ggplot2")
filenames <- list.files(
    path = "./Rcodes/simulation/data/",
    pattern = "model_selection_check_batch_15mai_3_rep_",
    full.names = TRUE
)

data_list <- lapply(filenames, readRDS)
result_data_frame <- dplyr::bind_rows(data_list)

ggplot(data = result_data_frame) +
    aes(x = epsilon_pi, group = preferred_model, fill = preferred_model) +
    geom_bar()

ggplot(data = result_data_frame) +
    aes(x = epsilon_rho , group = preferred_model, fill = preferred_model) +
    geom_bar()