如何在RStudio中将字母及特殊符号映射为数字？

下面是几种实用的实现方式，都是R语言中常用的方案：

方法1：使用命名向量（最简洁直接） #

通过创建命名向量定义映射规则，利用向量索引完成转换，适合单个字符或字符向量的批量转换：

# 定义映射规则：字符为名称，对应数字为值
map_vec <- c(A = 1, C = 2, G = 3, T = 4, "^" = 5, "!" = 6)

# 示例输入
input_chars <- c("A", "C", "!", "G", "^", "T")
# 执行映射
output_nums <- map_vec[input_chars]

# 查看结果
output_nums
# 若需要纯数值向量（去除名称），可转换：as.numeric(output_nums)

执行后输出：

A C ! G ^ T 
1 2 6 3 5 4 

方法2：使用dplyr::recode（适合数据框列处理） #

如果你在处理数据框中的字符列，recode函数可读性强，操作便捷：

library(dplyr)

# 示例数据框
df <- tibble(char = c("A", "C", "!", "G", "^", "T"))

# 为数据框添加映射后的数字列
df <- df %>%
  mutate(num = recode(char, 
                      A = 1, 
                      C = 2, 
                      G = 3, 
                      T = 4, 
                      "^" = 5, 
                      "!" = 6))

# 查看结果
df

输出结果：

# A tibble: 6 × 2
  char   num
  <chr> <dbl>
1 A         1
2 C         2
3 !         6
4 G         3
5 ^         5
6 T         4

方法3：使用dplyr::case_when（支持复杂条件扩展） #

如果后续需要添加更多映射规则或条件判断，case_when的灵活性更高：

library(dplyr)

df <- tibble(char = c("A", "C", "!", "G", "^", "T", "X"))

df <- df %>%
  mutate(num = case_when(
    char == "A" ~ 1,
    char == "C" ~ 2,
    char == "G" ~ 3,
    char == "T" ~ 4,
    char == "^" ~ 5,
    char == "!" ~ 6,
    TRUE ~ NA_real_  # 未匹配的字符返回NA，可自定义处理逻辑
  ))

方法4：使用stringr::str_replace_all（字符串批量替换） #

如果需要直接处理长字符串中的目标字符，str_replace_all可以一次性完成替换：

library(stringr)

input_str <- "AC!G^T"
# 批量替换字符为对应数字
output_str <- str_replace_all(input_str, 
                              c("A" = "1", "C" = "2", "G" = "3", "T" = "4", "^" = "5", "!" = "6"))

output_str
# 若需将结果转为数值向量：str_split(output_str, "") %>% unlist() %>% as.numeric()

执行后输出："126354"

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