data(ITS1, meta)
its1<- filter.OTU(data=list(ITS1=ITS1), percent=0.001)[[1]]
factors=c("City", "Crop", "Harvestmethod", "Ergosterol_ppm")
# plot sites
ord1 <- OTU.ord(its1, meta=meta, data.trans="total",
factors=factors, mode="cca", biplot.sig=0.1,
taxa=20, biplot.scale=1.5, cex.point=5,
plot.species=FALSE, rank="f", plot.scaling=3,
group=c(City="City", Crop="Crop"))
# plot taxa
ord2 <- OTU.ord(its1, meta=meta, data.trans="total", plot.scaling=-1,
factors=factors, mode="cca", biplot.sig=0.1,
taxa=20, biplot.scale=3, cex.point=3,
plot.species=TRUE, rank="g")Run the code above in your browser using DataLab