如何删除R中具有特定条件的字符串末尾，但保留部分条件？

Question

我有一个超过 15.000 行的数据集，如果条件是

([a-z]{1}\\.)

形式的正则表达式，我想删除字符串的结尾。如何删除字母后面的所有内容，但将字母保留在结果字符串中？

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(fruits, "([a-z]{1}\\.)", "")
[1] "121"    "12.2"   "12"     "12az"   "155.12" "1og"    "1.7a"

Answer 1

您可以使用：

stringr::str_remove(Example, "(?<=[a-z]{1})\\..*")
#[1] "12b"   "12.2"  "12"    "12az"  "155.a" "1r"    "1.7a"