get.pch <- function(nlevel){ pch = c(21,21,22,22,23,23)#rep(c(21,22,24),2) pch = pch[1:nlevel] return(pch) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.