Question

我想重新调整数据集中的因子，但是我确实在努力使用fct_relevel语法并将其与mutate_at结合使用。我遇到了一系列关于我的数据不是一个因素的错误。

该解决方案必须允许我重新调整多个因素（实际数据集有20多种因素以不同方式进行重新调整）

This answer似乎应该可以工作，但是我显然没有正确选择语法。我要去哪里错了？

这是一个例子：

library(tidyverse)

dat <- tibble (x1 = c("b", "b", "a", "c", "b"),
               x2 = c("c", "b", "c", "a", "a"),
               y = c(10, 5, 12, 3, 4)) %>% 
  mutate_at(.vars = vars(x1:x2), factor)

我肯定在处理各种因素

sapply(dat, class)

但是我无法重新设置x1，我收到以下错误：f must be a factor (or character vector))

dat %>% fct_relevel(x1, "c", "b", "a")

这是我理想中想要做的事

dat2 <- dat %>% 
  mutate_at(.vars = vars (x1:x2),
            .funs = fct_relevel("c", "b", "a"))

目前最后一组给我以下错误：

错误：无法创建对不可调用对象的调用

致电rlang::last_error()查看回溯

此外：警告消息：

f中的未知水平：b，a

如果有人指出我确信这是一个明显的错误，我将不胜感激。

Answer 1

这应该有效

library(dplyr)                     
library(forcats)

dat <- dat %>% mutate_at(vars(x1:x2), ~fct_relevel(., c("c", "b", "a")))

dat$x1
#[1] b b a c b
#Levels: c b a
dat$x2
#[1] c b c a a
#Levels: c b a

Answer 2

我们可以用

指定它

library(forcats)
dat <- dat %>% 
       mutate_at(.vars = vars (x1:x2),
            fct_relevel, c("c", "b", "a"))

如何使用mutate_at语法使用fct_relevel

2 个答案: