在R语言中如何实现字母与对应数字的相互转换？

下面分别解决数字转字母、字母转数字的需求，基础R就能搞定，也可以用常用的文本处理包简化操作：

一、数字转对应字母（A=1, B=2...） #

1. 基础R原生方法 #

R内置的LETTERS（大写A-Z）和letters（小写a-z）向量直接就能用，数字作为索引取值即可：

# 示例DataFrame
df <- data.frame(initials_code = c(1, 14, 26, 5))

# 转大写字母
df$initials <- LETTERS[df$initials_code]
# 转小写字母就用 letters[df$initials_code]

如果数据里有超出1-26的数字，可加判断处理：

df$initials <- ifelse(df$initials_code %in% 1:26, LETTERS[df$initials_code], NA)

2. 用stringr包简化映射 #

如果需要更灵活的映射（比如自定义编码规则），可以用stringr包的str_replace_all配合命名向量：

library(stringr)
# 创建数字到大写字母的映射
num_to_letter <- setNames(LETTERS, 1:26)
df$initials <- str_replace_all(as.character(df$initials_code), num_to_letter)

二、字母转对应数字（A=1, B=2...） #

1. 基础R原生方法 #

方法一：用match函数匹配

直接匹配字母在LETTERS/letters向量中的位置：

df <- data.frame(initials = c("A", "N", "Z", "E"))

# 大写字母转数字
df$initials_code <- match(df$initials, LETTERS)
# 小写字母就用 match(df$initials, letters)

方法二：用UTF-8编码计算

利用字符的UTF-8编码值计算，大写A的编码是65，减64得到1；小写a编码是97，减96得到1：

# 处理大小写混合的情况
df$initials_code <- ifelse(
  df$initials %in% LETTERS,
  utf8ToInt(df$initials) - 64,
  utf8ToInt(df$initials) - 96
)

2. 用命名向量映射 #

同样可以用命名向量快速实现：

letter_to_num <- setNames(1:26, LETTERS)
df$initials_code <- letter_to_num[df$initials]

注意事项 #

• 如果数据里包含非字母/非1-26的无效值，上述方法会返回NA，可根据需求用tidyr::replace_na替换为指定内容
• 若需要处理带重音的特殊字母，可先统一转换为普通字母（比如用stringi::stri_trans_general）

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