library(foofactors)
fbind(iris$Species[c(1, 51, 101)], PlantGrowth$group[c(1, 11, 21)])
#> [1] setosa versicolor virginica ctrl trt1 trt2
#> Levels: ctrl setosa trt1 trt2 versicolor virginica
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.