x <- bot %>% efourier(6) %>% MSHAPES(~type)
# custom colors
x %>% plot_MSHAPES(palette=pal_manual(c("darkgreen", "orange")))
# also works on list of shapes, eg:
leaves <- shapes %>% slice(grep("leaf", names(shapes))) %$% coo
class(leaves)
leaves %>% plot_MSHAPES()
# or
shapes %>%
# subset and degrade
slice(1:12) %>% coo_sample(60) %$% # grab the coo
coo %>%
plot_MSHAPES()
Run the code above in your browser using DataLab