R语言如何提取字符串中点号后的目标主题字段

• 待处理示例：字符串ABBCCAA.DPS3_2h
• 目标结果：提取点号后的DPS3_2h
• 原有逻辑参考：之前用sub('(.*)_.*', '\\1', colnames(E15))提取下划线前字段的思路完全可以复用，只需要调整正则规则适配点号的匹配即可，注意R语言正则中.是匹配任意字符的通配符，要匹配真实的点号必须加双反斜杠转义为\\.。

方法1：沿用sub正则替换（和你原有代码逻辑一致，推荐） #

直接调整正则匹配规则，捕获点号后的所有内容即可，代码可以直接替换原有逻辑使用：

# 批量处理数据框列名
types <- sub('.*\\.(.*)', '\\1', colnames(E15))

正则逻辑说明：

1. .* 匹配点号前的任意长度字符
2. \\. 精准匹配字符串中的点号分隔符
3. (.*) 捕获点号后的全部内容，通过\\1将整段字符串替换为捕获到的点后内容，实现提取效果

用示例字符串测试的运行结果：

> test_str <- "ABBCCAA.DPS3_2h"
> sub('.*\\.(.*)', '\\1', test_str)
[1] "DPS3_2h"

方法2：字符串拆分法（无需记忆捕获组规则，逻辑直观） #

如果觉得正则捕获组容易写错，也可以直接按点号拆分字符串，取拆分结果的第二段即可：

# 单字符串测试
> unlist(strsplit("ABBCCAA.DPS3_2h", "\\."))[2]
[1] "DPS3_2h"

# 批量处理列名的写法
types <- sapply(strsplit(colnames(E15), "\\."), `[`, 2)

注意：只要是在R的正则规则里匹配点号，都必须加双反斜杠转义，否则会因为.的通配符属性匹配到无关字符，导致提取结果错误。

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