如何在R语言中基于字符串末尾字符匹配创建对应值的向量

刚好经常遇到这类字符映射的需求，给你几种实用的解决办法，挑你顺手的用就行：

方法1：基础R原生方案（substr + ifelse） #

不用额外安装包，快速上手：

# 先模拟你的字符向量（替换成你实际的向量就行）
your_vec <- c("item1A", "item2B", "item3A", "item4B")

# 提取每个字符串的最后一个字符
last_char <- substr(your_vec, nchar(your_vec), nchar(your_vec))

# 映射为对应的颜色
result_vec <- ifelse(last_char == "A", "red", "blue")

# 查看结果
result_vec
# 输出：[1] "red"  "blue" "red"  "blue"

如果你的向量里存在非A/B结尾的元素，可以加个兜底逻辑，比如返回NA：

result_vec <- ifelse(last_char == "A", "red", 
                     ifelse(last_char == "B", "blue", NA_character_))

方法2：tidyverse生态方案（stringr + case_when） #

如果你平时习惯用tidyverse工具链，这种写法可读性更强，后续扩展规则也方便：

# 先加载需要的包（没装的话先运行install.packages(c("stringr", "dplyr"))）
library(stringr)
library(dplyr)

your_vec <- c("item1A", "item2B", "item3A", "item4B")

result_vec <- case_when(
  str_sub(your_vec, -1) == "A" ~ "red",  # str_sub(-1)直接取最后一位，不用计算长度
  str_sub(your_vec, -1) == "B" ~ "blue",
  TRUE ~ NA_character_  # 非A/B结尾的默认值，可选
)

result_vec

方法3：命名向量匹配法（最简洁） #

当映射规则很明确时，用命名向量做“字典匹配”是最简洁的写法：

your_vec <- c("item1A", "item2B", "item3A", "item4B")

# 创建映射字典：键是结尾字符，值是对应颜色
color_dict <- c("A" = "red", "B" = "blue")

# 提取最后一位后直接匹配
result_vec <- color_dict[substr(your_vec, nchar(your_vec), nchar(your_vec))]

result_vec

方法4：正则表达式方案（grepl） #

如果你熟悉正则，也可以用正则判断字符串结尾：

your_vec <- c("item1A", "item2B", "item3A", "item4B")

# grepl("A$", your_vec) 判断字符串是否以A结尾（$表示行尾）
result_vec <- ifelse(grepl("A$", your_vec), "red", "blue")

result_vec

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