## Simple bar chart with a flipped axis and legend at the top
library(ggplot2)
df <- mpg[mpg$class %in% c("subcompact", "compact", "midsize", "suv"),]
ggplot(df, aes(manufacturer)) +
geom_bar(aes(fill=class), width = 0.5) +
theme_bar_dft(flip = TRUE, legend_position = "top")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.