Làm thế nào để ánh xạ một vector đến một phạm vi khác trong R?

Question

Tôi có một vector trong khoảng [1,10]

c(1,2,9,10) 

và tôi muốn để ánh xạ nó vào một phạm vi khác nhau, ví dụ [12,102]

c(12,22,92,102) 

Có một chức năng đã thực hiện điều này vào R?

Answer 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 

Hoặc một cách rõ ràng hơn:

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)) công trình sử dụng các gói scales. Ngoài ra, người ta có thể khai thác approxfun một cách thông minh theo đề xuất của @flodel:

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