0
私は10グループ間の類似性のパーセンテージを距離測定値として使用して、樹状図を用いてヒートマップを取得することに興味があります。ヒートマップを使用したヒートマップとデンドグラムの問題。 R
次のようなデータ構造は以下の通りである：対比較の
af.w<-c(0,24.7,20.4,46.8,17.3,30,60.6,62.1,57.9,31.3)
af.g<-c(24.2,0,21.0,48.7,19.0,30.9,60.6,63.6,60.4,31.8)
af.e<-c(20.8,21.8,0,41.7,14.9,23.6,58.6,63.2,57.3,27.6)
af.h<-c(29.5,31.6,21.5,0,28.2,26.3,49.9,56.8,49.1,36.1)
af.s<-c(37.8,39.4,35.5,58.4,0,33.1,68.5,71.9,68.0, 47.7)
af.k<-c(61.8,61.8,56.8,69.3,51.3,0,75.6,78.9,74.8,64.0)
eu<-c(25.8,25.4,19.4,28.4,20.4,20,0,39.1,16.8,29.1)
asi<-c(18.5,21.3,18.5,29.0,20.0,18.6,28.8,0,24.0,22.0)
mi.ha<-c(27.4,31.6,23.9,32.7,25.8,23.1,23.9,40.5,0,30.9)
mi.aa<-c(20.6,19.7,15.1,44.1,18.7,23.6,56.3,58.6,54.2,0)
data<-cbind(af.w,af.g,af.e,af.h,af.s,af.k,eu,asi,mi.ha,mi.aa)
rownames(data)<-c("af.w","af.e","af.g","af.h","af.s","af.k","eu","asi","mi.ha","mi.aa")
data<-(100-data)
パーセント、対角線の両側には等しくありません。これは、これらの類似性のパーセンテージが、異なるサイズのグループを比較して得られたためです。与えられた2つの集団（A群でN = 250、B群でN = 500）に一定数の要素があり、それらは80個の要素を共有する。この場合、AとBとの間の類似性の割合は32％であるが、BとAとの間の類似性の比率は16％である。
heatmaplyパッケージを使用し、次のスクリプトは、私はこの数字を取得することができます：
heatmaply(data.2, margins = c(40, 130),
seriate = "OLO")
入れ替わるx軸における2つの集団（af.gとAFがあるあなたが見ることができるように.e）。これは、この構成で上部の樹状図を構築する方がより簡単だからです。しかし、私は必要に応じて上の樹状図を無視して、この図を対角線の正しい位置合わせで取得したいと考えています。ここで
