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

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)