library(pheatmap)
library(RColorBrewer)

alllarv<-read.csv('/Volumes/web/Mollusk/bs_larvae_exp/pheatmap_clustering/filt5_BiGoLarvae_common.csv')

head(alllarv)

ID<-alllarv$M1ID

M1<-alllarv$M1ratio

M3<-alllarv$M3ratio

T1D3<-alllarv$T1D3ratio

T1D5<-alllarv$T1D5ratio

T3D3<-alllarv$T3D3ratio

T3D5<-alllarv$T3D5ratio

alllarv<-data.frame(cbind(M1,M3,T1D3,T1D5,T3D3,T3D5))

color = colorRampPalette(brewer.pal(n = 7, name = ("YlOrRd")))(100)

pheatmap(cor(alllarv), display_numbers = F, color=color, border_color = "NA")

pheatmap(alllarv, cluster_rows=T, cluster_cols=T, clustering_distance_rows='euclidean', clustering_distance_cols='euclidean', clustering_method='average')