r - 如何在 r 中的字符向量上对步骤 2 的滑动窗口进行排序

Question

我知道如何编码以在字符向量中使用步骤 1 对 3 的滑动窗口进行排序，但步骤 2 是否需要 seq 函数？

所以对于第 1 步:

v <- c("ace", "king", "queen", "jack", "joker")

for(i in 1:3) {
    print(paste(v[i], v[i + 1], v[i + 2]))
}
## ace king queen
## king queen jack
## queen jack joker 

我如何修改它以使其步长为 2，即获取输出:

## ace king queen
## queen jack joker 

Answer 1

我们可以使用 data.table 中的 shift 来实现此目的，其中 type='lead' 并将 'n' 指定为 vector 序列从 0 到 2

library(data.table)
do.call(rbind, shift(vector, 0:2, type = "lead"))[,1:3]
#     [,1]    [,2]    [,3]   
#[1,] "ace"   "king"  "queen"
#[2,] "king"  "queen" "jack" 
#[3,] "queen" "jack"  "joker"

如果我们想要第二个序列，则使用n = c(0, 2)

do.call(rbind, shift(vector, c(0, 2), type = "lead"))[, 1:3]
#     [,1]    [,2]   [,3]   
#[1,] "ace"   "king" "queen"
#[2,] "queen" "jack" "joker"

---

或者我们可以使用 zoo 中的 rollapply

library(zoo)
rollapply(vector, 3, FUN = I)[c(TRUE, FALSE),]
#     [,1]    [,2]   [,3]   
#[1,] "ace"   "king" "queen"
#[2,] "queen" "jack" "joker"

---

或者仅使用基础R

apply(embed(vector, 3), 1, rev)[c(TRUE, FALSE),]
#     [,1]    [,2]   [,3]   
#[1,] "ace"   "king" "queen"
#[2,] "queen" "jack" "joker"

数据

vector <- c('ace', 'king', 'queen', 'jack', 'joker')