r - 按组在不同方向对数据框的列进行排序

Question

我有一个示例数据框:

dd <- data.frame(a = factor(c("Hi", "Hi", "Low", "Low"), 
                 levels = c("Low", "Hi"), ordered = T),
                 b = c(1,2,3,4))
dd
#     a b
# 1  Hi 1
# 2  Hi 2
# 3 Low 3
# 4 Low 4

如果 a 列的值为“Hi”，我希望按升序对 b 列进行排序；如果 a 列的值为“Low”，我希望按降序对 b 列进行排序。如果有任何帮助，我将不胜感激!

Answer 1

一种选择是根据“a”的值使用 desc 和 rev

library(dplyr)
dd %>% 
    arrange(match(a, c("Hi", "Low")),
          case_when(a == "Low"  ~ desc(b), TRUE ~ rev(desc(b))))

-输出

    a b
1  Hi 1
2  Hi 2
3 Low 4
4 Low 3

---

或者另一种选择是通过根据“a”中的值更改符号来转换数字列

dd %>% 
    arrange(match(a, c("Hi", "Low")), b * c(1, -1)[1 + (a == "Low")])
    a b
1  Hi 1
2  Hi 2
3 Low 4
4 Low 3