如何更改变量的小数位数？

Question

我的一个变量的范围是1到5，其他变量的范围是0到10。为了便于解释和比较，我需要转换变量的比例，以便所有变量的范围都从0到10。将1-5缩放为0-10？

Answer 1

我们可以使用f(x) = a + b * x形式的线性变换。

以下是使用一些随机样本数据的可重现示例：

set.seed(2018)
x1 <- sample(1:5, 10, replace = T)
x2 <- sample(1:10, 10, replace = T)

f <- function(x) round(-5/2 + 5/2 * x)

f(x1)
#[1]  2  5  0  0  5  2  8  0 10  5

实际上，我们可以定义一个更通用的函数，该函数允许两个变量的任意范围，并将range1的得分转换为range2的得分

f <- function(x, range1 = c(1, 5), range2 = c(0, 10)) {
    b <- (range2[2] - range2[1]) / (range1[2] - range1[1])
    a <- range2[2] - b * range1[2]
    return(round(a + b * x))
}
f(x1)
# [1]  2  5  0  0  5  2  8  0 10  5

您可以根据需要更改range1和range2。