percent <- function( .data, column, ext = 2, group = NULL ){ .data[ ,.N, column ][ ,p := N/sum(N), group ][ ,P := paste0(round(100*p,ext),"%") ][] }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.