奇怪的行为gtools:mixedorder结合dplyr::arrange？

Question

将< code>dplyr::arrange与< code>gtools::mixedorder一起使用时，我注意到了一个意外的结果。

考虑：

library(tidyverse)

test <- data.frame(V1 = c("all13_LG1", "all13_LG10", "all13_LG11",
 "all13_LG12", "all13_LG13", "all13_LG14", "all13_LG15", "all13_LG16",
 "all13_LG2", "all13_LG3", "all13_LG4", "all13_LG5", "all13_LG6",
 "all13_LG7", "all13_LG8", "all13_LG9"),
 V2 = c(rep(1:16)))

test2 <- test %>% arrange(gtools::mixedorder(V1))

test3 <- test %>% slice(gtools::mixedorder(V1))

在test2中，第1列排序：“all13_LG1”，“all13_LG3”，“all13_LG4”，“all13_LG5”，“all13_LG6”，“all13_LG7”，“all13_LG8”，“all13_LG9”，“all13_LG10”，“all13_LG11”，“all13_LG12”，“all13_LG13”，“all13_LG14”，“all13_LG15”，“all13_LG16”，“all13_LG2”

而在test3中，列的排序与使用gtools:mixedorder时预期的一样

为什么当我组合排列和混合工具时会发生这种情况？这是一个错误吗？

非常感谢，安妮克

Answer 1

我们可以将切片与混合排序和匹配

library(dplyr)
test %>% 
   slice(match(gtools::mixedsort(V1), V1))

-输出

           V1 V2
1   all13_LG1  1
2   all13_LG2  9
3   all13_LG3 10
4   all13_LG4 11
5   all13_LG5 12
6   all13_LG6 13
7   all13_LG7 14
8   all13_LG8 15
9   all13_LG9 16
10 all13_LG10  2
11 all13_LG11  3
12 all13_LG12  4
13 all13_LG13  5
14 all13_LG14  6
15 all13_LG15  7
16 all13_LG16  8

Answer 2

要在排列中使用mixedorderresults，您需要对结果进行 排序。<>

library(dplyr)
test %>% arrange(order(gtools::mixedorder(V1)))

#           V1 V2
#1   all13_LG1  1
#2   all13_LG2  9
#3   all13_LG3 10
#4   all13_LG4 11
#5   all13_LG5 12
#6   all13_LG6 13
#7   all13_LG7 14
#8   all13_LG8 15
#9   all13_LG9 16
#10 all13_LG10  2
#11 all13_LG11  3
#12 all13_LG12  4
#13 all13_LG13  5
#14 all13_LG14  6
#15 all13_LG15  7
#16 all13_LG16  8