如何从可变字符串首尾移除指定数量字符（附R语言示例）

嘿，这个需求在R里有两种很方便的实现方式，完全不需要依赖具体字符，只靠位置截取就能搞定：

方法一：基础R自带的substr()函数 #

基础R里的substr()可以直接通过起始和结束位置截取字符串。我们只需要计算好去掉前5个后的起始位置，以及去掉后5个后的结束位置就行：

x <- "ACCGCGCGCCTTCGCGCGCC"
# 计算起始位置：跳过前5个，从第6位开始
start_pos <- 5 + 1
# 计算结束位置：总长度减去5（去掉最后5个）
end_pos <- nchar(x) - 5
# 截取字符串
result <- substr(x, start = start_pos, stop = end_pos)
print(result)
# 输出结果：[1] "GCGCCTTCGC"

方法二：tidyverse的stringr::str_sub()函数 #

如果你习惯用tidyverse工具集，stringr包的str_sub()支持负数索引，用起来更直观——负数表示从字符串末尾开始计数：

library(stringr)
x <- "ACCGCGCGCCTTCGCGCGCC"
# 从第6位开始，到倒数第6位结束（也就是去掉最后5个）
result <- str_sub(x, 6, -6)
print(result)
# 输出结果：[1] "GCGCCTTCGC"

灵活调整移除长度 #

如果之后需要首尾移除更多字符（比如各移除6个），只需要对应修改位置参数就行：

• 用substr()的话，起始位置改成6+1=7，结束位置改成nchar(x)-6
• 用str_sub()的话，直接写成str_sub(x,7,-7)

这样不管字符串里的字符怎么变化，都能准确截取掉首尾指定长度的部分~

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