Skip to main content
se eliminaron 2 caracteres en el cuerpo
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

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)

Si puedes usar tidyverse podrías implementar algo como esto:

data %>% 
  mutate(nr = row_number()) %>% 
  pivot_longer(-nr) %>% 
  separate(name, sep=c(2), 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), into=c("A", "ID"))
  • Rehacemos la estructura "ancha" con pivot_wider(names_from = ID)

Si puedes usar tidyverse podrías implementar algo como esto:

data %>% 
  mutate(nr = row_number()) %>% 
  pivot_longer(-nr) %>% 
  separate(name, 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='_', into=c("A", "ID"))
  • Rehacemos la estructura "ancha" con pivot_wider(names_from = ID)
Origen Enlace
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

Si puedes usar tidyverse podrías implementar algo como esto:

data %>% 
  mutate(nr = row_number()) %>% 
  pivot_longer(-nr) %>% 
  separate(name, sep=c(2), 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), into=c("A", "ID"))
  • Rehacemos la estructura "ancha" con pivot_wider(names_from = ID)