What is the base equivalent of forcats::fct_rev?

davidhodge931 · February 7, 2024, 5:18am

Now I have another question which I've put here

How to reverse a factor using base in a tidyeval function? tidyverse

Hi, I have a forcats dependency in a package I author due to the use of fct_rev. I would like to replace this using base code. However, the base version of reversing levels doesn't seem to work as expected in a tidyeval function?? I would like to make the reverse_levels function below work in tidyeval code without using fct_rev. Thanks! library(palmerpenguins) library(tidyverse) penguins |> mutate(species = factor(species, levels = rev(levels(species)))) |> pull(species) |> levels() #> [1] "Gentoo" "Chinstrap" "Adelie" reverse_levels <- function(data, x) { data |> mutate(x = factor({{x}}, levels = rev(levels({{ x }})))) |> pull( {{ x }}) |> levels() } reverse_…