R语言将数字字符串按指定映射转换为字母字符串的实现方法

最优实现（一行代码完成） #

R内置的chartr()函数天生支持逐位字符映射替换，不需要拆分字符串处理列表，是最简单优雅的方案：

translate_function <- function(num_vec) {
  chartr(old = "1234", new = "ACGT", x = num_vec)
}

测试验证 #

# 输入测试向量
mynumbers <- c("122212", "134134", "134134", "142123", "212141", "213243", "213422", "214231", "221233")
myletters <- translate_function(mynumbers)

# 输出结果和需求完全匹配
print(myletters)
# 输出："ACCCAC" "AGTAGT" "AGTAGT" "ATCACG" "CACATA" "CAGCTG" "CAGTCC" "CATCGA" "CCACGG"

可选手动拆分实现（解决strsplit列表处理问题） #

如果你需要自己处理拆分后的列表结构（比如后续要扩展复杂映射逻辑），可以用以下实现，修正列表处理逻辑错误：

translate_function_v2 <- function(num_vec) {
  # 建立数字到字母的映射向量
  trans_map <- c("1" = "A", "2" = "C", "3" = "G", "4" = "T")
  # 遍历strsplit返回的列表，逐位替换后拼接
  sapply(strsplit(num_vec, ""), function(char_vec) paste(trans_map[char_vec], collapse = ""))
}

该实现和chartr版本返回结果完全一致，适合更复杂的自定义映射场景。

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