制作两个长度相等的不同长度的矢量

Question

我有两个不同长度的向量。我如何开始这两个系列，以便它们的结果重合。

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

Answer 1

使用tail和min确定最短的向量：

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