Resolved: How can I replace vector values with ascending numbers using the same intervals

x <- c(5, 5, 5, 7, 7, 7, 9, 11, 11, 11, 15, 15, 15, 17, 17, 17, 17)
[/code]

</p>



I want to be like this:<br> 


<p>[code]y <- c(1, 1, 1, 2, 2, 2, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 6)
[/code]

</p>



Is there a way to this automatically?<br> 



Thanks for any help.<br> 



<strong>Follow-up question:</strong><br> 



What if you want to keep the gabs in your new vector? For example, if we have:<br> 


<p>[code]x <- c(5, 5, 7, 7, 8, 8, 9)
[/code]

</p>



I want it to be:<br> 


<p>[code]y <- c(1, 1, 3, 3, 4, 4, 5)
[/code]

</p>



<h2>Answer:</h2>



You can do<br> 


<p>[code]match(x, unique(x))<br />
#> [1] 1 1 1 2 2 2 3 4 4 4 5 5 5 6 6 6 6

as.numeric(factor(x))
#> [1] 1 1 1 2 2 2 3 4 4 4 5 5 5 6 6 6 6

1 + c(0, cumsum(sign(diff(x))))
#> [1] 1 1 1 2 2 2 3 4 4 4 5 5 5 6 6 6 6