主页 / coding / 问题 / 77244427
Accepted
WalliYo_
Asked: 2023-10-06 20:26:58 +0800 CST

按增加的数字对数字进行排序[重复]

  • 772

如果已经被问过，请道歉，但我正在尝试“更改”向量中数字的数字顺序。

我们以这个向量为例：

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

我希望得到如下结果：

"1234556","12356789","01233477"

我知道问这个有点奇怪，但我的数据帧的一列中有数字组合，并且我发现了一些重复的情况，但无法使用简单的 unique() 函数或其他函数进行过滤，因为数字没有以相同的顺序排序方式。

多谢。

5 个回答

  1. 在基本 R 中，您可以split，然后sort，然后将它们全部粘贴在一起。strsplit创建一个列表，因此使用lapply或sapply迭代它：

    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"

    在答案中，它看起来像lapply和vapply是示例数据上最快的，但在较长的向量中，情况似乎是均匀的：

    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. 在基数 R 中：

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

    我会这样：

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

  4. 简短但不是最有效的

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

    或者可能会快一点

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

  5. 如果您想了解它是如何工作的，您可以按照以下步骤操作

    #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)

    输出如下

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

相关问题