我用过scale
对数据进行标准化。示例数据如下所示
structure(list(pp.pmhouravg = c(106.8181818182, 114.0833333333,
100.8333333333, 105, 102.4166666667, 117.8333333333), cc.cmhouravg = c(91.7272727273,
86.4166666667, 82.75, 84, 59.5833333333, 41.3333333333), ss.sdhouravg = c(49.2727272727,
46.8333333333, 47.5, 48.3333333333, 41, 45.5833333333), nn.ndhouravg = c(41.2727272727,
45.25, 34.0833333333, 27.75, 33.0833333333, 35.3333333333)), .Names = c("pp.pmhouravg",
"cc.cmhouravg", "ss.sdhouravg", "nn.ndhouravg"), row.names = c(NA,
6L), class = "data.frame")
为了将其标准化,我使用了
scale(df, center = T, scale = T)
我得到了以下标准化数据:
pp.pmhouravg cc.cmhouravg ss.sdhouravg nn.ndhouravg
1 -0.1504657 0.8893812 0.9702219 0.8259116
2 0.9290599 0.6183329 0.1404438 1.4645030
3 -1.0397516 0.4311897 0.3672155 -0.3284185
4 -0.4206285 0.4949885 0.6506801 -1.3452993
5 -0.8044848 -0.7512149 -1.8438082 -0.4889786
6 1.4862706 -1.6826775 -0.2847531 -0.1277183
attr(,"scaled:center")
pp.pmhouravg cc.cmhouravg ss.sdhouravg nn.ndhouravg
107.83081 74.30177 46.42045 36.12879
attr(,"scaled:scale")
pp.pmhouravg cc.cmhouravg ss.sdhouravg nn.ndhouravg
6.729949 19.592842 2.939815 6.228196
标准化后如何将数据转换回来。
最佳答案
设 x
为原始数据(可以是数据框或矩阵),sx
为缩放后的数据(必须是矩阵,如 scale
返回一个矩阵),你可以这样做:
b <- attr(sx, "scaled:scale")
a <- attr(sx, "scaled:center")
rx <- sx * rep(b, each = nrow(sx)) + rep(a, each = nrow(sx))
“去缩放”数据rx
当然也是一个矩阵,因为sx
是一个矩阵。您只需执行以下操作即可将其设为数据框:
data.frame(rx)
关于r - 将数据从标准化值转换回,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/41735513/