如何去除R数据框中行名转列得到的Stations列末尾的行号后缀

实现逻辑 #

Stations列后缀统一为.加行号数字，只需用正则匹配末尾的.数字格式字符串并替换为空即可实现修正。

方法1：基础R实现 #

直接对Stations列做正则替换，代码如下：

# 匹配末尾的.加数字组合，替换为空字符串
myDF$Stations <- sub("\\.\\d+$", "", myDF$Stations)

替换后可使用head(myDF$Stations)验证输出，示例数据的Stations列所有值会统一变为JPS6306031。

方法2：tidyverse风格实现 #

如果习惯使用dplyr+stringr的管道操作，可使用如下代码：

library(dplyr)
library(stringr)

myDF <- myDF %>%
  mutate(Stations = str_remove(Stations, "\\.\\d+$"))

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