R의 data.frame에서 하위 시퀀스의 마지막 날짜를 추출하는 방법은 무엇입니까?

Question

나는 다음과 같은 데이터 세트에 잠시 동안 사투를 벌인거야 : 나는 각 ID 비제 변수와 마지막 날짜에 출력하고 싶습니다

id date  var1 var2  
1 7031 2008-12-01 27 1 
2 7031 2009-01-05 6 0 
3 7031 2009-02-02 0 3 
4 7031 2008-11-01 1 4 
5 7500 2009-07-11 30 0 
6 7500 2009-10-01 8 0 
7 7500 2010-01-01 0 0 
8 7041 2009-06-20 26 0 
9 7041 2009-08-01 0 0 
10 0277 2009-01-01 3 0 

. 이 사용자의 시계열은 길이가 다릅니다. 나는 다음과 같은 출력물을 기대한다 :

id last_date 
7031 2009-02-02 
7500 2009-10-01 
7041 2009-06-20 
0277 2009-01-01 

어떤 도움을 주시면 감사하겠습니다!

Answer 1

먼저, 데이터를 부분 집합, 다음 aggregate()를 사용

여기에 샘플 데이터입니다 :

x <- read.table(header = TRUE, stringsAsFactors=FALSE, text = " 
       id date  var1 var2  
       1 '7031' 2008-12-01 27 1 
       2 '7031' 2009-01-05 6 0 
       3 '7031' 2009-02-02 0 3 
       4 '7031' 2008-11-01 1 4 
       5 '7500' 2009-07-11 30 0 
       6 '7500' 2009-10-01 8 0 
       7 '7500' 2010-01-01 0 0 
       8 '7041' 2009-06-20 26 0 
       9 '7041' 2009-08-01 0 0 
       10 '0277' 2009-01-01 3 0") 

것은 당신의 "날짜"변수 값이 실제 날짜가 아닌 문자로 표시되어 있는지 확인합니다.

x$date <- as.Date(x$date) 

부분 집합 :

x2 <- with(x, x[!(var1 == 0 & var2 == 0), ]) 

집계 :

aggregate(date ~ id, x2, max) 
#  id  date 
# 1 277 2009-01-01 
# 2 7031 2009-02-02 
# 3 7041 2009-06-20 
# 4 7500 2009-10-01 

당신이 당신의 서브 세트 데이터의 새로운 객체를 생성하지 않은 경우, 당신은 또한 사용할 수 있습니다 aggregate(date ~ id, x[!(x$var1 == 0 & x$var2 == 0), ], max)