Hi there,
I was trying to visualize my species delimitation results (based on three different methods) with ggtree. So far, I only accomplished to plot my results using gheatmap, as such:
cox2 <- read.dna("test.fasta", "fasta")
class(cox2)
nj <- nj(dist.dna(cox2))
plot(ladderize(nj), type = "phylo", cex = .3, align.tip.label = F)
otu <- read.table("otu_test.txt", sep="\t", stringsAsFactor=F)
p <- ggtree(nj) +
geom_tiplab(size=2, align = T)
p1 <- gheatmap(p, otu, offset=0.01, width=0.5, colnames_position = "top", font.size=2, low="white", high="black")
plot(p1)
The figure (see Figure 1) is going in the right direction but it should look more like this (see Figure 2), where species are indicated by vertical bars.
Any help is highly appreciated,
Bastian