我不是那么好,我不知道这是否是您搜索的内容,但我认为它可能可以解决包 stringr 的问题。
string <- "ABCDEF"
library(stringr)
combinated_letters <- function(string, n) {
length_ <- str_length(string)
str_sub(string, seq(1, length_ + 1 - n), seq(n, length_))
}
combinated_letters(string, 1)
combinated_letters(string, 2)
combinated_letters(string, 3)
combinated_letters(string, 4)
combinated_letters(string, 5)
combinated_letters(string, 6)
结果是:
> combinated_letters(string, 1)
[1] "A" "B" "C" "D" "E" "F"
> combinated_letters(string, 2)
[1] "AB" "BC" "CD" "DE" "EF"
> combinated_letters(string, 3)
[1] "ABC" "BCD" "CDE" "DEF"
> combinated_letters(string, 4)
[1] "ABCD" "BCDE" "CDEF"
> combinated_letters(string, 5)
[1] "ABCDE" "BCDEF"
> combinated_letters(string, 6)
[1] "ABCDEF"