如何从包含最后一个元素的向量构造连续对

Question

我有两个向量作为例子：

x <- c("a","b","c")
y <- c("a","b","c","d")

我想要做的是构建一个具有连续对

的数据框

# for X
a b
b c
c a

# for Y
a b
b c
c d
d a

我尝试了这个但却没有得到我想要的东西。

> cbind(x[-length(x)], x[-1])
 [,1] [,2]
 [1,] "a"  "b" 
 [2,] "b"  "c" 

> cbind(y[-length(y)], y[-1])
     [,1] [,2]
[1,] "a"  "b" 
[2,] "b"  "c" 
[3,] "c"  "d" 

注意我错过了最后一个元素对（例如c a的{​​{1}}和X的{​​{1}}。

Answer 1

这应该这样做

active