mp_col <- function(x){
data <- as.data.frame(round(prop.table(table(x)) * 100, 2))[2]
row.names(data) <- sort(unique(x))
return(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.