Início / coding / Perguntas / 79563612
Accepted
szmple
Asked: 2025-04-09 14:26:33 +0800 CST

Classificar valores em diferentes colunas

  • 772

Tenho o seguinte quadro de dados que preciso classificar de uma maneira específica. D1 e C1 estão vinculados, D2 e ​​C2 estão vinculados, D3 e C3 estão vinculados. Preciso que as colunas D1, D2 e ​​D3 contenham apenas um valor único, com seu C# na coluna C... respeitosamente.

X = structure(list(D1 = c("A", "A", "A", "A", "A", "B", "B", "B", 
"B", "B", "C", "C", "C", "C", "C", "NA", "NA", "NA", "NA", "NA", 
"NA", "NA", "NA", "NA", "NA", "B", "B", "B", "B", "B"), C1 = c("1", 
"2", "3", "4", "5", "1", "2", "3", "4", "5", "1", "2", "3", "4", 
"5", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", 
"1", "2", "3", "4", "5"), D2 = c("NA", "NA", "NA", "NA", "NA", 
"A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "C", "C", "C", 
"C", "C", "A", "A", "A", "A", "A", "NA", "NA", "NA", "NA", "NA"
), C2 = c("NA", "NA", "NA", "NA", "NA", "1", "2", "3", "4", "5", 
"1", "2", "3", "4", "5", "1", "2", "3", "4", "5", "1", "2", "3", 
"4", "5", "NA", "NA", "NA", "NA", "NA"), D3 = c("B", "B", "B", 
"B", "B", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", 
"NA", "A", "A", "A", "A", "A", "NA", "NA", "NA", "NA", "NA", 
"NA", "NA", "NA", "NA", "NA"), C3 = c("1", "2", "3", "4", "5", 
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "1", 
"2", "3", "4", "5", "NA", "NA", "NA", "NA", "NA", "NA", "NA", 
"NA", "NA", "NA")), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-30L))

Meu formato de saída esperado é este:

Y = structure(list(D1 = c("A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "NA", "NA", "NA", "NA", "NA", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "NA", "NA", "NA", "NA", "NA"), C1 = c("1", 
"2", "3", "4", "5", "1", "2", "3", "4", "5", "NA", "NA", "NA", 
"NA", "NA", "1", "2", "3", "4", "5", "1", "2", "3", "4", "5", 
"NA", "NA", "NA", "NA", "NA"), D2 = c("B", "B", "B", "B", "B", 
"B", "B", "B", "B", "B", "B", "B", "B", "B", "B", "NA", "NA", 
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "B", "B", "B", 
"B", "B"), C2 = c("1", "2", "3", "4", "5", "1", "2", "3", "4", 
"5", "1", "2", "3", "4", "5", "NA", "NA", "NA", "NA", "NA", "NA", 
"NA", "NA", "NA", "NA", "1", "2", "3", "4", "5"), D3 = c("NA", 
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "NA", "C", "C", 
"C", "C", "C", "C", "C", "C", "C", "C", "NA", "NA", "NA", "NA", 
"NA", "NA", "NA", "NA", "NA", "NA"), C3 = c("NA", "NA", "NA", 
"NA", "NA", "NA", "NA", "NA", "NA", "NA", "1", "2", "3", "4", 
"5", "1", "2", "3", "4", "5", "NA", "NA", "NA", "NA", "NA", "NA", 
"NA", "NA", "NA", "NA")), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -30L))

1 respostas

  1. Best Answer

    Você pode tentar pivotar e, em seguida, alterar os nomes usados ​​para pivotar de volta para o formato amplo com base nos valores de "D", o que parece gerar o resultado desejado. Mas primeiro, precisamos criar uma variável "id".

    library(dplyr)
library(tidyr)

    df %>%
  mutate(id=row_number()) %>%
  pivot_longer(-id,
               names_to=c(".value","name"),
               names_sep=1) %>% 
  mutate(name=case_when(D=="A"~1,
                      D=="B"~2,
                      D=="C"~3,
                      .default=NA)) %>% 
  filter(!is.na(name)) %>%
  pivot_wider(id_cols=id, values_from=c("D","C"), 
              names_sep="", names_vary = "slowest")

    Dá:

    # A tibble: 30 × 7
      id D1    C1    D2    C2    D3    C3   
   <int> <chr> <chr> <chr> <chr> <chr> <chr>
 1     1 A     1     B     1     NA    NA   
 2     2 A     2     B     2     NA    NA   
 3     3 A     3     B     3     NA    NA   
 4     4 A     4     B     4     NA    NA   
 5     5 A     5     B     5     NA    NA   
 6     6 A     1     B     1     NA    NA   
 7     7 A     2     B     2     NA    NA   
 8     8 A     3     B     3     NA    NA   
 9     9 A     4     B     4     NA    NA   
10    10 A     5     B     5     NA    NA   
# ℹ 20 more rows
# ℹ Use `print(n = ...)` to see more rows
    • 2

relate perguntas