##load libraries
library("pheatmap")
library("RColorBrewer")
##load matrix into dataframe
b1<-read.delim("fastANI_out_reformat_ed.tab", header =T, row.names=1, check.names=F)
##set output parameters
png("fastANI_out_reformat_ed.png", height=1500, width=750)
###run pheatmap
pheatmap(t(as.matrix(b1)), color = brewer.pal(n = 7, name ="Blues"), display_numbers=T, number_format = "%.2f", number_color="black")
dev.off()