Happy new year! Consider this simple example:
> df <- tibble(type = c(\'0_10\',\'0_9\',\'0_8\',\'0_10\',\'0_9\',\'0_8\',\'1_10\',\'1_9\',\'1_8\',\'1_10\
