WQ.Outcrop<-read.csv("c:/downloads/1-34.csv", header=T, sep=",") #讀取資料
WQ.Outcrop.n<-WQ.Outcrop[,-c(1,1)]#把第一欄的編號名稱刪掉，避免影響後續的群集分析
WQ.Outcrop.n #確認有刪掉第一欄
means<-apply(WQ.Outcrop.n, 2, mean) #標準化變數，計算每攔變數的平均數，2代表column，1代表row
sds<-apply(WQ.Outcrop.n, 2, sd) #標準化變數，計算每欄變數的標準差，2代表column，1代表row
WQ.Outcrop.n<-scale(WQ.Outcrop.n, center=means, scale=sds)  #標準化變數，計算Z分數
dist<-dist(WQ.Outcrop.n, , method="euclidean") #計算歐幾里得距離
nfit<-hclust(WQ.Outcrop.n, method="ward") #以Ward法進行集群分析
 

V1EuT3V0Y3JvcDwtcmVhZC5jc3YoImM6L2Rvd25sb2Fkcy8xLTM0LmNzdiIsIGhlYWRlcj1ULCBzZXA9IiwiKSAj6K6A5Y+W6LOH5paZCldRLk91dGNyb3AubjwtV1EuT3V0Y3JvcFssLWMoMSwxKV0j5oqK56ys5LiA5qyE55qE57eo6Jmf5ZCN56ix5Yiq5o6J77yM6YG/5YWN5b2x6Z+/5b6M57qM55qE576k6ZuG5YiG5p6QCldRLk91dGNyb3AubiAj56K66KqN5pyJ5Yiq5o6J56ys5LiA5qyECm1lYW5zPC1hcHBseShXUS5PdXRjcm9wLm4sIDIsIG1lYW4pICPmqJnmupbljJborormlbjvvIzoqIjnrpfmr4/mlJTorormlbjnmoTlubPlnYfmlbjvvIwy5Luj6KGoY29sdW1u77yMMeS7o+ihqHJvdwpzZHM8LWFwcGx5KFdRLk91dGNyb3AubiwgMiwgc2QpICPmqJnmupbljJborormlbjvvIzoqIjnrpfmr4/mrITorormlbjnmoTmqJnmupblt67vvIwy5Luj6KGoY29sdW1u77yMMeS7o+ihqHJvdwpXUS5PdXRjcm9wLm48LXNjYWxlKFdRLk91dGNyb3AubiwgY2VudGVyPW1lYW5zLCBzY2FsZT1zZHMpICAj5qiZ5rqW5YyW6K6K5pW477yM6KiI566XWuWIhuaVuApkaXN0PC1kaXN0KFdRLk91dGNyb3AubiwgLCBtZXRob2Q9ImV1Y2xpZGVhbiIpICPoqIjnrpfmrZDlub7ph4zlvpfot53pm6IKbmZpdDwtaGNsdXN0KFdRLk91dGNyb3AubiwgbWV0aG9kPSJ3YXJkIikgI+S7pVdhcmTms5XpgLLooYzpm4bnvqTliIbmnpAK