热图 R 语言heatmap using R(pheatmap)

> data= read.table ("C:/Users/Administrator/Desktop/elevation-more than 1% relative abundance.txt")

>x=read.csv(file.choose(),https://www.360docs.net/doc/7c1274140.html,s=1)

>x = as.matrix(x)

> library(pheatmap)

> pheatmap(x)

> pheatmap(data,fontsize=9, fontsize_row=6)

> pheatmap(X1, scale = "col"), clustering_distance_row = "correlation", fontsize=9, fontsize_row=6)

> pheatmap(P1, color = colorRampPalette(c("red", "white", "firebrick3"))(50), fontsize=9, fontsize_row=6)

> pheatmap(C, cluster_col=FALSE, fontsize=12, fontsize_row=12, border_color=NA) > pheatmap(data, legend = FALSE, fontsize=9, fontsize_row=6)

> pheatmap(data, cellwidth = 6, cellheight = 5, fontsize=9, fontsize_row=6)

> pheatmap(data, cellwidth = 9, cellheight = 5, fontsize=9, fontsize_row=6)

> pheatmap(data, cellwidth = 12, cellheight = 6, fontsize=9, fontsize_row=6)

>color.map<- function(mol.biol) { if (mol.biol=="ALL1/AF4") 1 else 2 }

pheatmap(X, cluster_row=FALSE,cluster_col=FALSE,fontsize=10, fontsize_row=8,cellwidth=12,cellheight=9,border_color=NA,color = colorRampPalette(rev(c("#D73027", "#FC8D59", "#FEE090", "#FFFFBF", "#E0F3F8", "#91BFDB", "#4575B4")))(200))去掉格子的边界线；去掉进化树线

pheatmap(C,

cluster_col=FALSE,fontsize=10, fontsize_row=10,cellwidth=10,cellheight=15, color = colorRampPalette(rev(c("#D73027", "#FC8D59", "#FEE090", "#FFFFBF", "#E0F3F8", "#91BFDB", "#4575B4")))(200))

>C1 = as.matrix(C1)

> pheatmap(C1)

l#gplots

library(gplots)

correlation_class<- read.csv("pathogen_jiulong1.csv", header=TRUE, https://www.360docs.net/doc/7c1274140.html,s=1) cor = correlation_class[,-1]

x<- as.matrix(cor)

heatmap(C, col=cm.colors(256), scale="row", dendrogram="none", Rowv=FALSE, Colv=FALSE, key=TRUE, symkey=FALSE, https://www.360docs.net/doc/7c1274140.html,="none", trace="none", cexRow=0.2, keysize=2)

heatmap.2(x, col=cm.colors(256), scale="row", hclustfun=hclust,dendrogram="both", key=TRUE, symkey=FALSE, https://www.360docs.net/doc/7c1274140.html,="none", trace="none", cexRow=0.2, keysize=2)

tiff(filename="heatmap.tiff", width=580, height=480)

dev.off()

heat.colors(256)

topo.colors(100)

cm.colors