小生这厢有礼了(BioFaceBook Personal Blog)

> library(caTools); > library(bitops); > library(grid); > data=read.csv(“/home/shenzy/Desktop/R/Bac.heatmap1.csv”) > data=read.csv(“/home/shenzy/Desktop/R/Bac.heatmap1.2.csv”) > View(data) > data=read.csv(“/home/shenzy/Desktop/R/Bac.heatmap1.2.csv”,sep=”\t”) > View(data) > row.names(data) <- data$X.OTU.ID; > View(data) > data_matrix<-data[,2:15] > View(data_matrix) > data_matrix<-data[,2:14] > View(data_matrix) > View(data) > data_matrix<-data[,1:14] > View(data_matrix) > library(pheatmap) > data_matrix[is.na(data_matrix)]<-1 > View(data_matrix) > data_log10<-log10(data_matrix) > View(data_log10) > data_log2<-log2(data_matrix) > View(data_log2) > pheatmap(data_log2,fontsize=9, fontsize_row=6) > pheatmap(data_log2, […]