값에 대응하는 타임 스탬프를 R

Question

에 추가했습니다. 그래서 며칠 동안 노력했지만이 것을 알아낼 수 없습니다. 해당 날짜의 열에 최대 값을 인쇄하려고합니다. 다음 코드는 이전 포스트에서 나에게 제안하고 부분적으로 작동했다

Date   Time  Value 
20130811  9:30   12 
20130811  9:31   0 
20130811  9:32   1 
20130812  9:30   8 
20130812  9:31   99 
20130812  9:32   12 

:

max <- ddply(theData,.(Date),summarize, High=max(Value)) 

산출 :

Date  Value 
    20130811 12 
    20130812 99 

을

내 theData의 형식은 다음과

코드를 생성해야합니다 :

Date  Time  Value 
20130811 9:30  12 
20130812 9:31  99 

for 루프를 사용하지 않고이 작업을 수행 할 수있는 방법이 있습니까?

도움 주셔서 감사합니다.

Answer 1

나는 여전히 유효 이전 포스트에서 내 대답을 repeat하기 위하여려고하고있다 :

library(plyr) 
ddply(mydata,.(Date),summarize,Time=Time[which.max(Value)],max.value=max(Value)) 


      Date Time max.value 
1 20130811 9:30  12 
2 20130812 9:31  99