###################################################
### code chunk number 17: legend
###################################################
d <- rockfish
legendnames <- (unlist(dimnames(d)[2]))[2:ncol(d)]
for (i in 1:length(legendnames)) cat(paste(i, legendnames[i], "\n", sep = " "))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.