Update AnnotationCombine.r

AnnotationCombine.r

@@ -59,3 +59,15 @@ myTable <- table(data$Species, data$Level1, useNA="always")
 #colnames(myTable)[ncol(myTable)] <- "unclassified"
 
 write.table(myTable, "myTable_sampleID_taxa-vs-fct.txt", sep = "\t")
+
+# Visualization starts here ...
+
+plotData <- as.data.frame.matrix(myTable)
+rownames(plotData)[nrow(plotData)] <- "unclassified"
+colnames(plotData)[ncol(plotData)] <- "unclassified"
+
+colFunc <- colorRampPalette(c("white", "steelblue"))
+#heatmap(as.matrix(plotData), Rowv=NA, Colv=NA, col=colFunc(256), scale="none")
+#heatmap(as.matrix(plotData), col=colFunc(256), scale="row")
+heatmap(as.matrix(plotData), Rowv=NA, Colv=NA, col=colFunc(256), scale="row")
+