getTopN <- function(x, n){ x.sorted <- sort(x, decreasing = TRUE) valueOI <- x.sorted[n] names(x)[x>=valueOI] }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.