Início / coding / Perguntas / 77244427
Accepted
WalliYo_
Asked: 2023-10-06 20:26:58 +0800 CST

Ordene um número por dígitos aumentados [duplicado]

  • 772

Peço desculpas se já foi perguntado, mas estou tentando "mudar" a ordem dos dígitos dos números em um vetor.

Tomemos como exemplo este vetor:

vector = c("5213456","17235896","23731074")

Eu gostaria de ter resultados da seguinte forma:

"1234556","12356789","01233477"

Eu sei que é um pouco estranho perguntar isso, mas tenho combinações de números em uma coluna do meu dataframe e localizei alguns casos duplicados, mas não podem ser filtrados com uma função simples () ou outra coisa, pois os dígitos não são ordenados da mesma forma. caminho.

Muito obrigado.

5 respostas

  1. Na base R, você poderia split, então sort, colar tudo junto. strsplitcria uma lista, então use lapplyou sapplypara iterar por ela:

    unlist(lapply(strsplit(vector, ""), \(x) paste(sort(x), collapse = "")))

# or (thanks @Robert Hacken!)
sapply(strsplit(vector, ""), \(x) paste(sort(x), collapse = ""))

# [1] "1234556"  "12356789" "01233477"

    Entre as respostas, parece lapplye vapplyé a mais rápida nos dados de exemplo, mas em vetores mais longos as coisas parecem se equilibrar:

    microbenchmark::microbenchmark(
  lapply = unlist(lapply(strsplit(vector, ""), \(x) paste(sort(x), collapse = ""))),
  sapply = sapply(strsplit(vector, ""), \(x) paste(sort(x), collapse = "")),
  Thomas = unname(sapply(vector, \(x) intToUtf8(sort(utf8ToInt(x))))),
  Mael_vapply = vapply(strsplit(vector, NULL), \(x) paste(sort(x), collapse = ''), ''),
  geotheory = stringr::str_split(vector, '') |> 
  purrr::map_chr(~ sort(.x) |> paste(collapse=''))
)

        expr     min       lq      mean   median       uq      max neval
      lapply  69.701  75.6775  95.79383  79.6590  87.3620 1488.421   100
      sapply  78.522  88.6830 115.97092  93.4425 102.1400 1942.413   100
      Thomas 123.368 143.3830 174.09282 155.7950 165.8135 1900.921   100
 Mael_vapply  68.167  76.1265  97.90242  79.9230  84.5445 1672.561   100
   geotheory 206.529 224.7750 249.77152 240.1000 264.5795  407.786   100

longvec <- rep(vector, 1e4)
# vector of length 30,000

        expr      min        lq      mean    median        uq      max neval
      lapply 623.6649  727.6631  940.1815  817.8032 1023.8237 1953.855   100
      sapply 589.1852  770.0218  941.9850  836.4549 1013.4217 1963.823   100
      Thomas 994.9503 1223.2654 1637.0953 1361.5117 1860.2610 3250.105   100
 Mael_vapply 615.7141  759.3814  922.8012  821.4991  998.0893 1807.163   100
   geotheory 664.4530  810.4600  984.8990  879.5722 1031.2233 2103.203   100
    • 4

  2. Na base R:

    vapply(strsplit(vector, NULL), \(x) paste(sort(x), collapse = ''), '')
    • 3
  3. Best Answer

    Eu diria isso:

    stringr::str_split(vector, '') |> 
  purrr::map_chr(~ sort(.x) |> paste(collapse=''))
[1] "1234556"  "12356789" "01233477"
    • 2

  4. Curto, mas não mais eficiente

    > unname(sapply(vector, \(x) intToUtf8(sort(utf8ToInt(x)))))
[1] "1234556"  "12356789" "01233477"

    ou pode ser um pouco mais rápido

    > unlist(lapply(vector, \(x) intToUtf8(sort(utf8ToInt(x)))))
[1] "1234556"  "12356789" "01233477"
    • 2

  5. Se você quiser entender como funciona, aqui você pode seguir os passos

    #your vector
vector = c("5213456", "17235896", "23731074")
# First convert numbers to strings.
strs = as.character(vector)

# then split the strings into individual characters.
char = strsplit(strs, "")

# then sort (arrange) the characters in ascending order for each string.
sorted_char = lapply(char, function(x) sort(x))

# Finally join the sorted characters into strings.
sorted_strs = lapply(sorted_char, function(x) paste(x, collapse = ""))
# Then unlist
unlist_strs = unlist(sorted_strs)

    a saída é a seguinte

    > print(unlist_strs)
[1] "1234556"  "12356789" "01233477"
    • -1

relate perguntas