길이가 다른 두 개의 벡터를 길이가 같게 만들기

Question

두 개의 다른 길이의 벡터가 있습니다. 어떻게하면 두 시리즈를 시작하여 그들의 끝이 concide 할 수 있습니까?

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)