Início / coding / Perguntas / 77782473
Accepted
ksinva
Asked: 2024-01-09 02:18:00 +0800 CST

Como fazer referência à última coluna em pivot_longer() sem nomeá-la ou fornecer o número do índice?

  • 772

Estou escrevendo uma função para dinamizar uma tabela de dados para um formato longo. Para o cols = argumento, o nome da primeira coluna será sempre o mesmo, mas a coluna final (e o número de colunas) mudará. Existe uma maneira de pegar o "resto" das colunas sem nomeá-las ou por seus índices?

Digamos que eu tenha estes dados de amostra:

data <- structure(list(Site = c("A", "B"), Group = c("1", "2"), grip = c("S", 
"H"), height = c("S", "T"), width = c("W", "N"), QA = c("Y", 
"N")), class = "data.frame", row.names = c(NA, -2L))

É assim:

  Site Group grip height width QA
1    A     1    S      S     W  Y
2    B     2    H      T     N  N

E às vezes o conjunto de dados terá mais colunas. Digamos que eu queira obter colunas grip:QA, sem nomear o controle de qualidade ou fornecer seu número de índice. Eu tentei o seguinte:

data %>%
  pivot_longer(cols = grip:everything(),
               names_to = "Name",
               values_to = "value")

Mas recebo o aviso Warning message: In x:y : numerical expression has 6 elements: only the first usede ele não gira da maneira que desejo. O que estou tentando alcançar é possível?

2 respostas

  1. Best Answer

    Você poderia usar last_col:

    library(tidyr)

data %>%
  pivot_longer(
    cols = grip:last_col(),
    names_to = "Name",
    values_to = "value"
  )
#> # A tibble: 8 × 4
#>   Site  Group Name   value
#>   <chr> <chr> <chr>  <chr>
#> 1 A     1     grip   S    
#> 2 A     1     height S    
#> 3 A     1     width  W    
#> 4 A     1     QA     Y    
#> 5 B     2     grip   H    
#> 6 B     2     height T    
#> 7 B     2     width  N    
#> 8 B     2     QA     N

    Ou, como outra opção, exclua as colunas que você não deseja incluir ao dinamizar usando !ou -:

    data %>%
  pivot_longer(
    cols = !c(Site, Group),
    names_to = "Name",
    values_to = "value"
  )
#> # A tibble: 8 × 4
#>   Site  Group Name   value
#>   <chr> <chr> <chr>  <chr>
#> 1 A     1     grip   S    
#> 2 A     1     height S    
#> 3 A     1     width  W    
#> 4 A     1     QA     Y    
#> 5 B     2     grip   H    
#> 6 B     2     height T    
#> 7 B     2     width  N    
#> 8 B     2     QA     N
    • 5

  2. Já que você mencionou data.table, aqui está uma solução usando data.table::melt:

    library(data.table)

melt(setDT(data), id.vars = 2:which(colnames(data) == "grip")-1)

#>    Site Group variable value
#> 1:    A     1     grip     S
#> 2:    B     2     grip     H
#> 3:    A     1   height     S
#> 4:    B     2   height     T
#> 5:    A     1    width     W
#> 6:    B     2    width     N
#> 7:    A     1       QA     Y
#> 8:    B     2       QA     N

    Criado em 08/01/2024 com reprex v2.0.2

    • 1

relate perguntas