Início / coding / Perguntas / 79411280
Accepted
JontroPothon
Asked: 2025-02-04 18:11:43 +0800 CST

Reorganizar elementos de string pelo número anexado a eles em linhas

  • 772

Eu tenho esse quadro de dados,

set.seed(124)
id <- rnorm(5, mean = 100, sd = 59)
charVar <- c("Eeny (2), meeny (10), miny (21), moe (1)",
  "Catch (112), a (2), tiger (33), by (44), the (2), toe (24)",
  NA,
  "If (2), he (33), hollers (15), let (66), him (1), go (55)",
  "Eeny (224), meeny (44), miny (50), moe (76)")
df <- data.frame(id, charVar)
df
> df
         id                                                    charVar
1  18.28083                   Eeny (2), meeny (10), miny (21), moe (1)
2 102.26107 Catch (112), a (2), tiger (33), by (44), the (2), toe (24)
3  54.98122                                                       <NA>
4 112.52606  If (2), he (33), hollers (15), let (66), him (1), go (55)
5 184.10674                Eeny (224), meeny (44), miny (50), moe (76)

Quero classificar cada elemento nas linhas pelos números com ele. A saída esperada deve ser parecida com esta:

> df
         id                                                     charVar
1  18.28083                    miny (21), meeny (10), Eeny (2), moe (1)
2 102.26107 Catch (112), by (44), tiger (33), toe (24), a (2),  the (2)
3  54.98122                                                        <NA>
4 112.52606   let (66), go (55), he (33), hollers (15), If (2), him (1)
5 184.10674                 Eeny (224), moe (76), miny (50), meeny (44)

Alguma ideia de como atingir o resultado esperado? Qualquer ajuda seria muito apreciada.

2 respostas

  1. Parece que isso é uma continuação da sua pergunta anterior . Em vez de lidar com o problema XY , evite o problema desde o início:

    #example data
df <- data.frame(var_1 = c(10, 5, 6, 0),
                 var_2 = c(0, 0, 3, 0),
                 var_3 = c(2, 0, 9, 0))

#sort and collapse to string 
df$resString <- apply(df, 1, function(x, y = x[ x != 0 ]){
  ix <- order(y, decreasing = TRUE)
  if(length(ix)) paste(paste0(names(y)[ ix ], " (", y[ ix ], ")"), collapse = ", ")  else return(NA)
  })

#sort and keep as list column
df$resList <- apply(df[, grep("^var", colnames(df), value = TRUE) ], 1,
                    function(i) sort(i[ i != 0 ], decreasing = TRUE))

#df
#   var_1 var_2 var_3                       resString resList
# 1    10     0     2           var_1 (10), var_3 (2)   10, 2
# 2     5     0     0                       var_1 (5)       5
# 3     6     3     9 var_3 (9), var_1 (6), var_2 (3) 9, 6, 3
# 4     0     0     0                            <NA>
    • 4
  2. Best Answer

    Como você marcou e aqui estão algumas abordagens usando ambos.

    tidyverseabordagem

    Basicamente, entramos em uma lista-coluna onde cada elemento é um vetor de caracteres, em formato longo, extraímos os números e então voltamos para uma linha por id, onde juntamos os valores em ordem decrescente :strsplit() charVartidyr::unnest()dplyr::summarise()paste()order()

    library(dplyr)
df |>
    mutate(charVar = strsplit(charVar, ", ")) |>
    tidyr::unnest(charVar) |>
    mutate(n = as.integer(gsub("\\D+", "", charVar))) |>
    summarise(
        charVar = paste(charVar[order(-n)], collapse = ", "),
        .by = id
    )


#          id                                                    charVar
# 1  18.28083                   miny (21), meeny (10), Eeny (2), moe (1)
# 2 102.26107 Catch (112), by (44), tiger (33), toe (24), a (2), the (2)
# 3  54.98122                                                         NA
# 4 112.52606  let (66), go (55), he (33), hollers (15), If (2), him (1)
# 5 184.10674                Eeny (224), moe (76), miny (50), meeny (44)

    data.tableabordagem

    Não há equivalente para tidyr::unnest(). Embora os mesmos resultados possam ser alcançados com a não listagem, aqui está uma abordagem que parece mais idiomática, que modifica charVarno local:

    library(data.table)
setDT(df)

df[, charVar := lapply(charVar, \(x) {
    parts <- unlist(strsplit(x, ", "))
    n <- as.integer(gsub("\\D+", "", parts))
    paste(parts[order(-n)], collapse = ", ")
})]

#           id                                                    charVar
#        <num>                                                     <list>
# 1:  18.28083                   miny (21), meeny (10), Eeny (2), moe (1)
# 2: 102.26107 Catch (112), by (44), tiger (33), toe (24), a (2), the (2)
# 3:  54.98122                                                         NA
# 4: 112.52606  let (66), go (55), he (33), hollers (15), If (2), him (1)
# 5: 184.10674                Eeny (224), moe (76), miny (50), meeny (44)
    • 1

relate perguntas