data(bot)
botF <- eFourier(bot)
meanShapes(botF) # average shape
shp.type <- meanShapes(botF, "type")
panel(Coo(shp.type), borders=col.gallus(2)) # use Coo plotting facilities !
# below we combine another Fourier approach, one more factor, and one panel plot with names.
bot@fac <- data.frame(type=bot@fac[, 1], plop=rep(letters[1:4], each=10))
botR <- rFourier(bot)
shp.plop <- meanShapes(botR, "plop")
panel(Coo(shp.plop), cols=col.summer(4), names=TRUE)
Run the code above in your browser using DataLab