从变化的字符串R的开头和结尾删除n个字符

Question

我有以下示例字符串：

x <- "ACCGCGCGCCTTCGCGCGCC"

我想从每一侧剪切5个（或更多）字符，无论字符本身如何（不能使用正则表达式，因为字符可能会因我的文件而异），最后是这个例子：

GCGCCTTCGC

有没有简单的方法可以做到这一点？

Answer 1

我们可以使用gsub来匹配字符串开头（.{5}）的5个字符（^）或（|）相同数量的字符结束（$）字符串并将其替换为空白（""）

gsub('^.{5}|.{5}$', '', x)
#[1] "GCGCCTTCGC"

或使用substr

n <- 5
substr(x, n + 1, nchar(x) - n)
#[1] "GCGCCTTCGC"