r - 如何根据值的实际顺序将数字转换为字母？

我认为这应该是一个非常简单的问题，但我似乎无法找出答案。本质上，我想为列的值添加前缀，但不使用任何类型的条件语句。这可能吗？

即，我想要产生与

mtcars %>%
  mutate(new_cyl = str_c(case_when(cyl == 6 ~ letters[1],
                                   cyl == 4 ~ letters[2],
                                   cyl == 8 ~ letters[3]), ") ", cyl))

但不使用 case_when 或任何其他条件。

我的预期输出会按照列的出现顺序将某些内容(在本例中为字母)附加到列的值中。这里看起来像:

最佳答案

您可以使用 factor() 进行标记:

mtcars %>%
  mutate(
    new_cyl = paste(factor(x, unique(x), letters[seq(unique(x))]), cyl, sep = ') ')
  )

输出(头):

#    mpg cyl disp  hp drat    wt  qsec vs am gear carb new_cyl
# 1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4    a) 6
# 2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4    a) 6
# 3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1    b) 4
# 4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1    a) 6
# 5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2    c) 8
# 6 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1    a) 6

概括为一个函数:

append_prefix <- function(x, sort = F){
  out <- paste(factor(x, unique(x), letters[seq(unique(x))]), x, sep = ') ')
  if(sort) out <- paste(factor(x, sort(unique(x)), letters[seq(unique(x))]), x, sep = ') ')
  return(out)
}

关于r - 如何根据值的实际顺序将数字转换为字母？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/56244884/