使两个不同长度的向量长度相等

我有两个不同长度的向量。我怎样才能开始这两个系列，让它们的结局重合。

x<-c(1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6)
y<-c(1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4)

我用下面的代码来做，但我想一定有一种更优雅的方法

x<-x[((length(x)-length(y))+1):length(x)]

x
 [1]  3  4  5  6  7  8  9 10 11 12  1  2  3  4  5  6
y
 [1]  1  2  3  4  5  6  7  8  9 10 11 12  1  2  3  4

Use tail, and min确定最短向量：

shortest <- min(length(x), length(y))
y <- tail(y, shortest)
x <- tail(x, shortest)