Say I have a vector of integers: tt <- c(26000L, 26000L, 25333L, 25333L, 25343L, 24667L, 24667L, 24667L,
23667L)
I want to replace these integers within the interval of 500 and get:
26000 26000 25500 25500 25500 25000 25000 25000 24000
Asked
Active
Viewed 931 times
-4
MAPK
- 5,635
- 4
- 37
- 88
-
are you looking for `pretty()` ? – Matt Jul 08 '19 at 17:57
-
1`500 * ceiling(tt/500)` – Andrew Gustar Jul 08 '19 at 17:58
-
@AndrewGustar Thanks, that works for me. – MAPK Jul 08 '19 at 18:00
-
Related to https://stackoverflow.com/questions/6461209/how-to-round-up-to-the-nearest-10-or-100-or-x – akrun Jul 08 '19 at 18:00
-
1@MAPK but it doesn't match your desired output. – Eli Korvigo Jul 08 '19 at 18:00
-
@EliKorvigo Sorry I have edited my question. – MAPK Jul 08 '19 at 18:02
2 Answers
2
You can use round_any from the plyr library.
library(plyr)
round_any(as.numeric(tt), 500)
[1] 26000 26000 25500 25500 25500 24500 24500 24500 23500
round_any(as.numeric(tt), 500, f = floor)
[1] 26000 26000 25000 25000 25000 24500 24500 24500 23500
round_any(as.numeric(tt), 500, f = ceiling)
[1] 26000 26000 25500 25500 25500 25000 25000 25000 24000
sumshyftw
- 1,111
- 6
- 14
1
I'm not sure about your rounding logic, but what about
round(as.numeric(tt) / 500) * 500
# [1] 26000 26000 25500 25500 25500 24500 24500 24500 23500
jay.sf
- 60,139
- 8
- 53
- 110