使用 tidyeval 排序因子水平

Question

我有一个dataframe，看起来像这样：

my_df <- data.frame(
  x = c("V1", "V2", "V3", "V4"),
  score = c(1, 4, 6, 3),
  order = c(1, 4, 3, 2)
)

my_df$x 的级别如下所示：

> my_df$x
[1] V1 V2 V3 V4
Levels: V1 V2 V3 V4

我希望能够根据order 列重新排序x 的级别，如下所示：

my_df_ <- my_df %>% 
  mutate(x = factor(x, x[order]))
my_df_$x
[1] V1 V2 V3 V4
Levels: V1 V4 V3 V2

但我希望能够在使用 tidyeval 的函数中执行此操作，但我无法弄清楚如何...我很高兴能够传递字符串 ("x") 或表达式 ( x) 到函数。

Answer 1

使用forcats 的潜在解决方案如下：

my_fn <- function(df, x, o) {

  o_ <- enquo(o)
  x_ <- enquo(x)
  x_name <- quo_name(x_)

  df %>% 
    mutate(!!x_name := fct_reorder(!!x_, !!o_))
}
my_fn(my_df, x, order)