gghorizontal_bar <- function(df, x = NULL, y = NULL){
ggplot(., aes(x = reorder(web_of_science_categories, n), y = n)) +
geom_bar(stat = 'identity') +
coord_flip()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.