如何在R中按指定条件移除字符串尾部并保留条件字符

我有一个超过15000行的数据集，需要实现：当字符串的尾部匹配[a-z]\.模式（即单个小写字母加英文点号）时，移除该字母之后的所有内容，但保留这个小写字母。

示例数据 #

Example <- c("12b.1", "12.2", "12", "12az", "155.a.12", "1r.og", "1.7a")

期望结果 #

[1] "12b"  "12.2" "12"   "12az" "155.a" "1r"  "1.7a" 

尝试过的方法（未成功） #

使用stringr包的str_replace函数，但输出不符合预期：

> str_replace(fruits, "([a-z]{1}\\.)", "")
[1] "121"    "12.2"   "12"     "12az"   "155.12" "1og"    "1.7a"

解决方案 #

你的问题在于正则表达式没有定位到字符串尾部的目标模式，且替换逻辑错误。正确的做法是捕获目标小写字母，匹配它后面的点号及所有后续内容，最终只保留捕获的字母。

完整代码

library(stringr)

Example <- c("12b.1", "12.2", "12", "12az", "155.a.12", "1r.og", "1.7a")
processed_result <- str_replace(Example, "([a-z])\\..*$", "\\1")
print(processed_result)

正则逻辑说明

• ([a-z])：捕获单个小写字母，后续用\\1引用该捕获内容
• \\.：匹配英文点号（正则中点号需转义）
• .*$：匹配点号之后的所有内容，直到字符串结尾
• 替换为\\1：仅保留捕获的小写字母，移除点号及之后的所有内容

执行结果

[1] "12b"   "12.2"  "12"    "12az"  "155.a" "1r"    "1.7a"

内容的提问来源于stack exchange，提问作者T. Beige