월 번호 벡터 변환

Question

다음 벡터에는 월 번호가 포함됩니다.

x <- c(10,4,10,12,1,3,6,7,9,11,12,4,7,8) 

는 특히, 첫 번째 요소는 두 번째는 내가 X의 요소에 12을 추가하는 방법을 찾고 내년 4 월, 등 이며, 일부 년의 10 달 필요에 따라 다음과 같은 벡터 y를 얻을 수 있습니다.

y <- c(10,16,22,24,25,27,30,31,33,35,36,40,43,44) 

어떻게 하시겠습니까?

Answer 1

우리의 cumsum 얻을 12 곱과 추가 미만 0 diff의 출력에서의 길이의 차이를 설명하기 FALSE으로 연결하여, 논리 벡터를 생성할지 여부를 확인 diff으로 인접한 요소들을 비교하여 X 사용자가 제공 한 예를 바탕으로

x+ cumsum(c(FALSE, diff(x)< 0)) *12 
#[1] 10 16 22 24 25 27 30 31 33 35 36 40 43 44 

Answer 2

, 나는 요소의 목록을 반복 것 그리고 내가 이전보다 작은 요소를 볼 때마다, 다음과 같은 것들에 * 12를 추가 N. 처음에 n = 0이고 목록에서 이전 숫자보다 작은 숫자를 감지 할 때마다 증가합니다.

그러나 내년에는 두 번째 달이 필요할 때 어떻게 처리해야합니까? 그 다음 달의 예는 7 번째 달입니까? 같은 해의 두 번째 달과 7 번째 달이있는 경우이 사건과 사건을 구분 짓는 데 분명히 필요한 것이 있습니다. 간단한 숫자 목록만으로는 충분하지 않습니다.