library(ggplot2)
library(here)
library(tidyverse)
library(stringr)

flist <- list.files(here("results/increasing_size/"), full.names = TRUE) |> str_sort(numeric = TRUE)

res_df <- do.call("rbind", lapply(flist, readRDS))
ggplot(res_df, aes(x = n2, y = time)) +
    geom_point()

ggplot(res_df, aes(x = n2, y = ari_col)) +
    geom_point()