I have a vector in the range [1,10]
c(1,2,9,10)
and I want to map it to a different range, for example [12,102]
c(12,22,92,102)
Is there a function that already does this in R?
linMap <- function(x, from, to)
(x - min(x)) / max(x - min(x)) * (to - from) + from
linMap(vec, 12, 102)
# [1] 12 22 92 102
Or more explicitly:
linMap <- function(x, from, to) {
# Shifting the vector so that min(x) == 0
x <- x - min(x)
# Scaling to the range of [0, 1]
x <- x / max(x)
# Scaling to the needed amplitude
x <- x * (to - from)
# Shifting to the needed level
x + from
}
rescale(vec, c(12, 102))
works using the package scales
. Also one could exploit approxfun
in a clever way as suggested by @flodel:
linMap <- function(x, a, b) approxfun(range(x), c(a, b))(x)
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With