library(ggtree)
nwk_file_name <- "testR/cgMLST_Legio_ms_tree.nwk"
nwk <- read.tree(nwk_file_name)
metadata_file_name <- "testR/abricate_presence_absence.txt"
metadata <- read.table(metadata_file_name, sep="\t", stringsAsFactor=F)
g <- ggtree(nwk)
gheatmap(g, metadata, offset=5, width=0.5, font.size=3, colnames_angle=-45, hjust=0)