R - 将缩放和居中的数据转换为原始值

Question

如果我在数据框中对数值列进行缩放和居中（每列中的每个值除以各自的列SD，并且从每个值中减去各列的平均值）然后，我将其转换为原始值。

在下面的简单示例中，我看到每个列的平均值和SD存储在使用居中应用'scale'后的对象d4中。

d1 <- as.data.frame(seq(1,20,1)) 
d2 <- as.data.frame(seq(0.11,0.3,0.01)) 
d3 <- cbind(d1,d2) 
names(d3) <- c("A","B") 
d4 <- scale(d3,center=TRUE) 
d4 

       A   B 
[1,] -1.60579308 -1.60579308 
[2,] -1.43676223 -1.43676223 
[3,] -1.26773138 -1.26773138 
[4,] -1.09870053 -1.09870053 
[5,] -0.92966968 -0.92966968 
[6,] -0.76063883 -0.76063883 
[7,] -0.59160798 -0.59160798 
[8,] -0.42257713 -0.42257713 
[9,] -0.25354628 -0.25354628 
[10,] -0.08451543 -0.08451543 
[11,] 0.08451543 0.08451543 
[12,] 0.25354628 0.25354628 
[13,] 0.42257713 0.42257713 
[14,] 0.59160798 0.59160798 
[15,] 0.76063883 0.76063883 
[16,] 0.92966968 0.92966968 
[17,] 1.09870053 1.09870053 
[18,] 1.26773138 1.26773138 
[19,] 1.43676223 1.43676223 
[20,] 1.60579308 1.60579308 
attr(,"scaled:center") 
    A  B 
10.500 0.205 
attr(,"scaled:scale") 
     A   B 
5.9160798 0.0591608 

如何我现在可以使用存储的平均值和SD值从D4原始值

Answer 1

的数据帧来计算，我们可以做

r1 <- d4 * attr(d4, 'scaled:scale')[col(d4)] + attr(d4, 'scaled:center')[col(d4)] 
all.equal(as.data.frame(r1), d3) 
#[1] TRUE