将一列数值重新编码为R中的一列新文本值

numbers <- data.frame(values = c(1, 2, 3, 4, 5))
numbers$new_values <- ifelse(numbers$values == 1, "One",
                             ifelse(numbers$values == 2, "Two",
                                    ifelse(numbers$values == 3, "Three",
                                           ifelse(numbers$values == 4, "Four",
                                                  ifelse(numbers$values == 5, "Five", "Other")))))

library(dplyr)

numbers <- data.frame(values = c(1, 2, 3, 4, 5))
numbers <- numbers %>%
  mutate(new_values = case_when(
    values == 1 ~ "One",
    values == 2 ~ "Two",
    values == 3 ~ "Three",
    values == 4 ~ "Four",
    values == 5 ~ "Five",
    TRUE ~ "Other"
  ))