## More complex bar chart with another dft palette selected and gradient used.
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", palette = "just.beachy", gradient = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.