Rデータを非正規化する

Question

これらのRスクリプトを使用してMin Maxでデータを正規化しました。

normalize <- function(x) { 
    return ((x - min(x))/(max(x) - min(x))) 
    } 

mydata <- as.data.frame(lapply(mydata , normalize)) 

データをどのように非正規化できますか？

ありがとうございます！

Answer 1

本質的には、演算を逆にするだけです。x1 = (x0-min)/(max-min)は、x0 = x1*(max-min) + minを意味します。しかし、データを上書きする場合は、正規化する前に最小値と最大値を保存したほうがいいでしょう。そうでない場合は（あなたのコメントに@MrFlickで指摘されているように）破棄します。

は、データを設定します。

dd <- data.frame(x=1:5,y=6:10) 

ノーマライズ：

normalize <- function(x) { 
    return ((x - min(x))/(max(x) - min(x))) 
} 
ddnorm <- as.data.frame(lapply(dd,normalize)) 
##  x y 
## 1 0.00 0.00 
## 2 0.25 0.25 
## 3 0.50 0.50 
## 4 0.75 0.75 
## 5 1.00 1.00 

非正規化：属性が（参照として

minvec <- sapply(dd,min) 
maxvec <- sapply(dd,max) 
denormalize <- function(x,minval,maxval) { 
    x*(maxval-minval) + minval 
} 
as.data.frame(Map(denormalize,ddnorm,minvec,maxvec)) 
## x y 
## 1 1 6 
## 2 2 7 
## 3 3 8 
## 4 4 9 
## 5 5 10 

賢いnormalize関数が結果にスケーリング変数を添付します?scale ...）