if(!is.null(.GlobalEnv$iconsE)) iconsE <- .GlobalEnv$iconsE
choices <- as.list(iconsE)
names(choices) <- iconsE
x <- matrix(c(31,46,94,170,574),ncol=1)
rownames(x)<- c("Ziege","Schaf","Rind","Schwein","Huhn")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.