Si puedes usar tidyverse
podrías implementar algo como esto:
data %>%
mutate(nr = row_number()) %>%
pivot_longer(-nr) %>%
separate(name, sep=c(2)sep='_', into=c("A", "ID")) %>%
pivot_wider(names_from = ID) %>%
select(-nr, -A)
# A tibble: 15 x 3
ARVI NDRE MCAR
<dbl> <dbl> <dbl>
1 0 5 2
2 0 5 2
3 0 5 2
4 4 5 7
5 4 5 7
6 4 5 7
7 2 7 9
8 2 7 9
9 2 7 9
10 2 8 9
11 2 8 9
12 2 8 9
13 5 9 7
14 5 9 7
15 5 9 7
Detalle
- identificamos unívocamente cada fila con
mutate(nr = row_number())
- llevamos todo a un distribución "larga" mediante
pivot_longer(-nr)
- Separamos el nombre de las variables, para quedarnos con la parte que queremos agrupar:
separate(name, sep=c(2)sep='_', into=c("A", "ID"))
- Rehacemos la estructura "ancha" con
pivot_wider(names_from = ID)