r - 如何在dplyr中以降序排列奇数和以升序排列偶数

Question

我在 r 中有以下数据框

   ID     bay    row     number     
   1      43      11       ABC
   2      43      6        DEF
   3      43      13       QWE
   4      43      15       XDF
   5      43      4        VGH
   6      43      2        TYU
   7      11      11       QAS
   8      11      13       QTO
   9      11      12       EWQ
   10     11      10       RFT  

我想按 bay

将奇数按降序排列，偶数按升序排列

我想要的数据框将跟随

  ID     bay     row     number     
  1       43      15      XDF
  2       43      13      QWE
  3       43      11      ABC
  4       43      2       TYU
  5       43      4       VGH
  6       43      6       DEF
  7       11      13      QTO 
  8       11      11      QAS
  9       11      10      RFT 
 10       11      12      EWQ   

如何在 dplyr 中执行此操作？

Answer 1

library(dplyr)

df <- read.table(text =
"   ID     bay    row     number     
   1      43      11       ABC
   2      43      6        DEF
   3      43      13       QWE
   4      43      15       XDF
   5      43      4        VGH
   6      43      2        TYU
   7      11      11       QAS
   8      11      13       QTO
   9      11      12       EWQ
   10     11      10       RFT ",
  stringsAsFactors = FALSE, header = TRUE)

arrange(df, desc(bay), desc(row %% 2), row * (-1)^(row%%2))

#    ID bay row number
# 1   4  43  15    XDF
# 2   3  43  13    QWE
# 3   1  43  11    ABC
# 4   6  43   2    TYU
# 5   5  43   4    VGH
# 6   2  43   6    DEF
# 7   8  11  13    QTO
# 8   7  11  11    QAS
# 9  10  11  10    RFT
# 10  9  11  12    EWQ