`fct_reorder2`如何计算这个结果？

Question

尽管咨询了this线程，但我很难理解以下输出：

df <- tibble::tribble(
  ~color,     ~a, ~b,
  "blue",      1,  2,
  "green",     6,  2,
  "purple",    3,  3,
  "red",       2,  3,
  "yellow",    5,  1
)

这意味着：

> fct_reorder2(df$color, df$a, df$b, .fun = min, .desc = TRUE)
[1] blue   green  purple red    yellow
Levels: purple green red blue yellow

我知道你应该以不同的方式使用.fun和fct_reorder2。这里的min函数计算所有提供的值的最小值，这里是df$a和df$b中的值。我还是没想到我会得到这样的结果。有人能解释一下吗？

Answer 1

df <- tibble::tribble(
  ~color,     ~a, ~b,
  "blue",      1,  2,
  "green",     6,  2,
  "purple",    3,  3,
  "red",       2,  3,
  "yellow",    5,  1
)

df %>% mutate(
  nr = 1:5,
  min = ifelse(a<=b, a, b)
) %>% arrange(desc(min), nr) 

输出

# A tibble: 5 x 5
  color      a     b    nr   min
  <chr>  <dbl> <dbl> <int> <dbl>
1 purple     3     3     3     3
2 green      6     2     2     2
3 red        2     3     4     2
4 blue       1     2     1     1
5 yellow     5     1     5     1

一切都会好起来的。