here is started code then for a reprex.
I extended yours to clean up the names, and order them as you requested into IG and F groups etc.
library(tidyverse)
start_df <- data.frame(
check.names = FALSE,
`Interview number (ongoing)` = c(134, 146, 156, 159, 160),
IG...2 = c(5, 4, 6, 5, 6),
I...3 = c(7, 7, 5, 5, 4),
IG...4 = c(5, 5, 7, 4, 6),
F...5 = c(1, 1, 1, 2, 1),
IG...6 = c(4, 2, 3, 2, 5),
I...7 = c(2, 3, 2, 1, 3),
IG...8 = c(1, 2, 1, 2, 4),
F...9 = c(1, 1, 1, 1, 1),
IG...10 = c(7, 2, 5, 5, 5),
F...11 = c(1, 4, 1, 1, 1),
I...12 = c(2, 3, 2, 1, 3),
IG...13 = c(6, 3, 5, 1, 5),
I...14 = c(7, 6, 3, 5, 4),
F...15 = c(1, 1, 1, 1, 1),
I...16 = c(5, 4, 3, 6, 4),
IG...17 = c(1, 4, 2, 2, 5),
IG...18 = c(4, 3, 3, 4, 5),
F...19 = c(1, 1, 1, 1, 1),
IG...20 = c(1, 5, 2, 2, 1),
I...21 = c(6, 3, 3, 1, 4),
F...22 = c(1, 1, 1, 1, 1),
IG...23 = c(6, 5, 5, 2, 6),
I...24 = c(6, 7, 4, 3, 5),
F...25 = c(1, 1, 1, 1, 1),
F...26 = c(1, 1, 1, 1, 1),
I...27 = c(6, 7, 4, 3, 5),
IG...28 = c(5, 3, 4, 4, 5),
F...29 = c(1, 1, 1, 2, 1),
I...30 = c(1, 3, 5, 4, 4),
I...31 = c(7, 5, 3, 6, 5),
IG...32 = c(1, 1, 1, 1, 1),
I...33 = c(7, 5, 4, 1, 5),
F...34 = c(1, 1, 1, 1, 1),
F...35 = c(1, 2, 1, 3, 1),
I...36 = c(7, 6, 6, 4, 5),
F...37 = c(1, 2, 1, 3, 1),
I...38 = c(5, 6, 3, 3, 3),
IG...39 = c(5, 1, 3, 3, 5),
F...40 = c(1, 1, 1, 1, 1),
IG...41 = c(5, 2, 3, 5, 5),
I...42 = c(5, 4, 3, 3, 3),
F...43 = c(1, 1, 1, 1, 1),
F...44 = c(1, 1, 1, 1, 1),
I...45 = c(4, 5, 2, 3, 3),
IG...46 = c(1, 1, 1, 3, 1),
I...47 = c(4, 5, 2, 4, 3),
I...48 = c(1, 5, 2, 3, 1),
F...49 = c(1, 1, 1, 1, 1),
IG...50 = c(4, 3, 3, 3, 5),
F...51 = c(1, 1, 1, 1, 1),
F...52 = c(1, 1, 1, 1, 1),
I...53 = c(4, 6, 2, 1, 4),
IG...54 = c(5, 3, 5, 3, 6),
I...55 = c(1, 6, 2, 3, 3),
IG...56 = c(6, 2, 4, 4, 5),
IG...57 = c(5, 6, 5, 5, 5),
F...58 = c(1, 1, 1, 1, 1),
I...59 = c(3, 5, 2, 2, 4),
IG...60 = c(4, 1, 2, 2, 5),
IG...61 = c(5, 3, 3, 3, 5),
F...62 = c(1, 2, 1, 1, 1),
F...63 = c(1, 1, 1, 1, 1),
IG...64 = c(5, 3, 3, 5, 5),
I...65 = c(1, 4, 2, 4, 3),
F...66 = c(1, 2, 1, 2, 1),
IG...67 = c(7, 5, 6, 4, 6),
I...68 = c(6, 7, 4, 5, 4),
IG...69 = c(4, 1, 1, 1, 4),
I...70 = c(6, 6, 4, 6, 5),
F...71 = c(1, 1, 1, 1, 1),
F...72 = c(1, 5, 1, 1, 1),
I...73 = c(4, 5, 3, 3, 3),
IG...74 = c(1, 1, 2, 1, 5),
F...75 = c(1, 1, 1, 1, 1),
I...76 = c(5, 5, 4, 5, 4),
IG...77 = c(6, 2, 6, 4, 5),
IG...78 = c(6, 1, 4, 3, 5),
F...79 = c(1, 1, 1, 1, 1),
I...80 = c(1, 1, 1, 1, 2),
F...81 = c(1, 1, 1, 1, 1),
F...82 = c(1, 1, 1, 1, 1),
I...83 = c(5, 5, 4, 4, 5),
I...84 = c(3, 5, 5, 3, 3),
IG...85 = c(5, 2, 4, 6, 5),
F...86 = c(1, 1, 1, 1, 1),
I...87 = c(7, 5, 5, 5, 5),
IG...88 = c(7, 1, 5, 6, 5),
F...89 = c(1, 1, 1, 1, 1),
IG...90 = c(7, 2, 4, 3, 5),
I...91 = c(6, 6, 3, 5, 3)
)
(select(start_df,1,
starts_with("IG"),
starts_with("F"),
starts_with("I")) %>%
as_tibble( .name_repair = ~ gsub("\\...","_",.)) -> final_df)
You mentioned anova, have you written any code towards that goal ?