Transformation d'un vecteur de numéros de mois

Question

Le vecteur suivant contient des nombres de mois.

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

Plus précisément, le premier élément est le 10e mois de quelque année, le second est le 4ème mois de l'année suivante, etc. Je cherche un moyen d'ajouter 12 dans les éléments de x, nécessaire, de sorte que je reçois un vecteur y comme ceci:

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

Comment suggéreriez-vous de le faire?

Answer 1

Nous pouvons comparer les éléments adjacents avec diff, vérifiez si elle est inférieure à 0 pour créer un vecteur logique, concaténer avec FALSE pour tenir compte de la différence de longueur en sortie de diff, obtenir le cumsum, il faut multiplier par 12 et ajouter 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

sur la base de l'exemple que vous avez fourni, j'itérer la liste des éléments et chaque fois que je vois un élément qui est plus petit que le précédent, ajouter n * 12 aux suivantes. Où n = 0 initialement et incrémenté chaque fois que vous détectez un plus petit nombre que le précédent dans la liste.

Ma question est, cependant, comment vous gérez quand vous avez besoin du 2ème mois d'une certaine année et rien de plus de celui-là, mais le 7ème mois par exemple de l'année suivante? Vous aurez certainement besoin de quelque chose pour différencier ce cas du cas où vous avez le 2ème mois et le 7ème mois de la même année. La simple liste de chiffres ne suffit pas pour cela, j'en ai peur.