Usei a pivot_longer 3 vêzes em sequência. Há outra alternativa?

dúvidas
1 
library(tidyr)
#> Warning: package 'tidyr' was built under R version 4.0.4
library(dplyr)
#> Warning: package 'dplyr' was built under R version 4.0.4
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(tibble)
#> Warning: package 'tibble' was built under R version 4.0.4
library(magrittr)
#> Warning: package 'magrittr' was built under R version 4.0.4
#> 
#> Attaching package: 'magrittr'
#> The following object is masked from 'package:tidyr':
#> 
#>     extract
library(reprex)
#> Warning: package 'reprex' was built under R version 4.0.4
library(styler)
#> Warning: package 'styler' was built under R version 4.0.4

# Criando o tibble para o exemplo.
nome <- c("Tania", "Mara", "Chico", "Marco")
ai_esfera__x <- sample(seq(0, 99, 1), 4, replace = FALSE)
ai_esfera__x3 <- sample(seq(0, 99, 1), 4, replace = FALSE)
ai_esfera__w <- sample(seq(0, 99, 1), 4, replace = FALSE)
ai_cubo__x <- sample(seq(0, 99, 1), 4, replace = FALSE)
ai_cubo__x3 <- sample(seq(0, 99, 1), 4, replace = FALSE)
ai_tetraedro__x3 <- sample(seq(0, 99, 1), 4, replace = FALSE)
dd_esfera__x3 <- sample(seq(0, 99, 1), 4, replace = FALSE)
dd_cubo__x <- sample(seq(0, 99, 1), 4, replace = FALSE)
dd_tetraedro__w <- sample(seq(0, 99, 1), 4, replace = FALSE)
dd_tetraedro__x3 <- sample(seq(0, 99, 1), 4, replace = FALSE)

# Os nomes da colunas indicam respectivamente a origem, tipo e a classe.
# A 4ª coluna tem origem em ai é do tipo esfera e da classe w,
# a última tem origem dd é do tipo tetraedro e classe x3.
exemplo <- tibble(
  nome, ai_cubo__x, ai_cubo__x3, ai_esfera__w, ai_esfera__x,
  ai_esfera__x3, ai_tetraedro__x3, dd_cubo__x, dd_esfera__x3,
  dd_tetraedro__w, dd_tetraedro__x3
)

# Para fazer o exemplo_tidy, usei o pivot_longer 3 vezes.
# Há alguma forma menos repetitiva para obter o mesmo resultado?

# Criando o tibble exemplo_tidy.
exemplo_tidy <- exemplo %>%
  pivot_longer(
    !nome,
    names_to = c(".value", "classe"),
    names_sep = "__",
    values_drop_na = TRUE
  ) %>%
  pivot_longer(
    !nome & !classe,
    names_to = c(".value", "tipo"),
    names_sep = "_",
    values_drop_na = TRUE
  ) %>%
  pivot_longer(!nome & !classe & !tipo,
    names_to = "origem", values_to = "valor"
  ) %>%
  select(1, 4, 3, 2, 5)

Created on 2021-03-14 by the reprex package (v1.0.0)

2

Minha sugestão é a função tidyr::separate(). Note que, no meu código, ele não gera nenhuma linha com valor NA.

library(magrittr)

# Gerar uma coluna com valores aleatórios
gerar_coluna <- function() {
  sample(seq(0, 99, 1), 4, replace = FALSE)
}

# Base exemplo
exemplo <- dplyr::tibble(
  nome = c("Tania", "Mara", "Chico", "Marco"),
  ai_esfera__x = gerar_coluna(),
  ai_esfera__x3 = gerar_coluna(),
  ai_esfera__w = gerar_coluna(),
  ai_cubo__x = gerar_coluna(),
  ai_cubo__x3 = gerar_coluna(),
  ai_tetraedro__x3 = gerar_coluna(),
  dd_esfera__x3 = gerar_coluna(),
  dd_cubo__x = gerar_coluna(),
  dd_tetraedro__w = gerar_coluna(),
  dd_tetraedro__x3 = gerar_coluna()
)

# Usar tidyr::separate() ao invés de dois tidyr::pivot_longer()
exemplo %>%
  tidyr::pivot_longer(-nome, names_to = "chave", values_to = "valor") %>%
  tidyr::separate(chave, c("origem", "tipo", "classe"), "_+")
#> # A tibble: 40 x 5
#>    nome  origem tipo      classe valor
#>    <chr> <chr>  <chr>     <chr>  <dbl>
#>  1 Tania ai     esfera    x         25
#>  2 Tania ai     esfera    x3        32
#>  3 Tania ai     esfera    w         39
#>  4 Tania ai     cubo      x         97
#>  5 Tania ai     cubo      x3         5
#>  6 Tania ai     tetraedro x3        17
#>  7 Tania dd     esfera    x3        11
#>  8 Tania dd     cubo      x         74
#>  9 Tania dd     tetraedro w          5
#> 10 Tania dd     tetraedro x3        84
#> # … with 30 more rows

Created on 2021-03-15 by the reprex package (v1.0.0)

1 curtida
3

Muito obrigado Caio.
Cada script uma excelente (não resisti ao trocadilho de tiozão) aula.
Abs.

1 curtida
4

Este script será muito bem para mim, pois recebo aqueles excels cheios de colunas com especificações detalhadas. Agora a arrumação será possível e mais fácil.