그룹화 데이터

Question

은 다음과 같이 데이터 프레임을 감안할 때 :

이

station <- c(1, 2, 3, 1, 2, 3, 1, 2, 2, 2) 
obs <- c(12.3, 10.4, 9.8, 15.9, 8.2, 8.4, 6.3, 10.2, 9.0, 8.3) 
df <- data.frame(station, obs) 

내가 지금처럼 새 열 run를 만들 싶습니다

station obs run 
1  1 12.3 1 
2  2 10.4 1 
3  3 9.8 1 
4  1 15.9 2 
5  2 8.2 2 
6  3 8.4 2 
7  1 6.3 3 
8  2 10.2 3 
9  2 9.0 4 
10  2 8.3 5 

내가이 작성했다면 다른 언어를 사용하면 의사 코드는 다음과 같이 보입니다.

run := 1 
if station(previous) >= station(current): 
    run := run + 1 

어떻게해야할까요? h tidyr 님과 친구가 있습니까?

Answer 1

library(dplyr) 

df %>% 
    mutate(run = cumsum(c(TRUE, diff(station)<=0))) 

station obs run 
1  1 12.3 1 
2  2 10.4 1 
3  3 9.8 1 
4  1 15.9 2 
5  2 8.2 2 
6  3 8.4 2 
7  1 6.3 3 
8  2 10.2 3 
9  2 9.0 4 
10  2 8.3 5