Как сопоставить вектор в другом диапазоне в R?

У меня есть вектор в диапазоне [1,10]

c(1,2,9,10)

и я хочу отобразить его в другом диапазоне, например [12,102]

c(12,22,92,102)

Есть ли функция, которая уже делает это в R?

Ответ 1

linMap <- function(x, from, to)
  (x - min(x)) / max(x - min(x)) * (to - from) + from

linMap(vec, 12, 102)
# [1]  12  22  92 102

Или более явно:

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)) работает с пакетом scales. Также можно использовать approxfun умным способом, как это было предложено @flodel:

linMap <- function(x, a, b) approxfun(range(x), c(a, b))(x)