在R语言中重新编码含字母与数字的变量的方法求助

嘿，我来帮你搞定这个编码需求！针对你给出的混合了字母（A-Z）和数字（2-8）的变量，我整理了两种简单的实现方法，都能得到你想要的结果：

方法一：Base R 映射匹配法 #

这种方法适合喜欢用基础R函数的场景，逻辑清晰直接：

# 你的原始变量
var = c('A',2,3,8,'C','W',6,'T')

# 先统一转为字符类型，处理混合元素更方便
var_char <- as.character(var)

# 构建字母到1-26的映射
letter_map <- setNames(1:26, LETTERS)
# 构建数字2-8到27-33的映射
num_map <- setNames(27:33, as.character(2:8))

# 合并两个映射规则
full_map <- c(letter_map, num_map)

# 通过匹配映射得到结果
result <- unname(full_map[var_char])

# 查看最终结果
result
# 输出：[1]  1 27 28 33  3 23 31 20

原理说明： #

• 由于原始变量是混合类型（字符+数值），先转成字符能统一处理所有元素；
• setNames 用来创建“键-值”对的映射表，键是原始元素，值是你要的编码；
• 最后用原始字符元素作为索引，直接从映射表中取出对应编码，unname 是去掉结果的名字，只保留纯数值。

方法二：Tidyverse 条件判断法 #

如果你习惯用tidyverse系列工具（比如dplyr），可以用条件判断的方式实现：

library(dplyr)
library(stringr)

var = c('A',2,3,8,'C','W',6,'T')

result <- var %>%
  as.character() %>%
  purrr::map_dbl(function(x) {
    case_when(
      # 判断是否是大写字母，返回对应1-26的位置
      str_detect(x, "^[A-Z]$") ~ which(LETTERS == x),
      # 判断是否是2-8的数字，返回26+数字本身（2对应27，8对应33）
      str_detect(x, "^[2-8]$") ~ 26 + as.integer(x),
      # 可选：处理不符合规则的元素，比如返回NA
      TRUE ~ NA_real_
    )
  })

result
# 输出：[1]  1 27 28 33  3 23 31 20

原理说明： #

• 同样先转字符统一处理；
• str_detect 用来判断元素类型：大写字母或指定范围的数字；
• case_when 按顺序执行条件判断，匹配到对应规则就返回对应的编码；
• 最后一行的TRUE ~ NA_real_是兜底处理，如果遇到不符合规则的元素（比如小写字母、数字1/9等），会返回NA，你可以根据需求改成报错或者其他值。

两种方法都能完美得到你想要的编码结果，选你顺手的用就行！

内容的提问来源于stack exchange，提问作者Aaron England