library(circular)
data(va_mean)
data(estimated_ancestral_va)
data(spcolmap)
#the species in the defined clade infects the fish host Liza subviridis (dodger blue color)
plotCircular(va_mean, estimated_ancestral_va, col.lab=spcolmap$color,
clade=spcolmap[spcolmap$host %in% "L.subviridis",]$species, LM=6, tit=6)
Run the code above in your browser using DataLab