data(abernethy)
head(abernethy)
(plt <- Stratiplot(Age ~ . - Depth,
data = chooseTaxa(abernethy, n.occ = 5,
max.abun = 10),
type = "poly"))
Run the code above in your browser using DataLab