R pheatmap

> 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, color = colorRampPalette(c(“white”, “yellow”, “firebrick3″))(50), fontsize=9, fontsize_row=6)
> pheatmap(data_log2, color = colorRampPalette(c(“white”, “blue”, “firebrick3″))(50), fontsize=9, fontsize_row=6)
> help(pheatmap)
> pheatmap(data_log2, color = colorRampPalette(c(“white”, “blue”, “firebrick3″))(50), fontsize=9, fontsize_row=6,cluster_rows=FALSE, cluster_cols=FALSE)
> pheatmap(data_log2, color = colorRampPalette(c(“white”, “blue”, “firebrick3″))(50), fontsize=9, fontsize_row=6)
> data2=read.csv(/home/shenzy/Desktop/R/Bac.heatmap1.3_GZ.csv)
Error: unexpected ‘/’ in “data2=read.csv(/”
> data2=read.csv(“/home/shenzy/Desktop/R/Bac.heatmap1.3_GZ.csv”,sep=”\t”)
> View(data2)
> row.names(data2) <- data2$X.OTU.ID;
> data3=read.csv(“/home/shenzy/Desktop/R/Bac.heatmap1.4_SH.csv”,sep=”\t”)
> row.names(data3) <- data3$X.OTU.ID;
> View(data3)
> data2_matrix<-data2[,1:7]
> View(data2_matrix)
> data3_matrix<-data3[,1:7]
> View(data3_matrix)
> data2_matrix[is.na(data2_matrix)]<-1
> data3_matrix[is.na(data3_matrix)]<-1
> data2_log2<-log2(data2_matrix)
> data3_log2<-log2(data3_matrix)
> pheatmap(data2_log2, color = colorRampPalette(c(“white”, “blue”, “firebrick3″))(50), fontsize=9, fontsize_row=6,cluster_rows=FALSE, cluster_cols=FALSE)
> pheatmap(data2_log2, color = colorRampPalette(c(“white”, “blue”, “firebrick3″))(50), fontsize=9, fontsize_row=6)
> pheatmap(data3_log2, color = colorRampPalette(c(“white”, “blue”, “firebrick3″))(50), fontsize=9, fontsize_row=6,cluster_rows=FALSE, cluster_cols=FALSE)
> pheatmap(data3_log2, color = colorRampPalette(c(“white”, “blue”, “firebrick3″))(50), fontsize=9, fontsize_row=6)