将缩放的数字转换为R中的原始数字

Question

我是R的新手。我想将我使用scale()缩放的一组数字转换为原始的数字。

这里我用来缩放数字的代码

dataCluster <- dataFinal[, c(1)]
data_z <- as.data.frame(lapply(dataCluster, scale))
clusters <- kmeans (na.roughfix(data_z), 3) 

其中：

• dataFinal是一个数据框（3列x 100行）

• clusters是一个“数据矩阵”（3列x 3行）。

我想创建一个包含原始值的clustersRaw。

有人可以帮忙吗？

Answer 1

不知道这会解决，因为你不提供你的数据。但是：

    #create a matrix 10x3
    mat<-matrix(1:30,ncol=3)
    #scale it
    x<-scale(mat)
    #restore it
    t(t(x)*attr(x,"scaled:scale")+attr(x,"scaled:center"))