library(ggplot2)
library(ggmosaic)
chart <- ggplot(data = fly) +
geom_mosaic(aes(x = product(FlightFreq, Region), fill=FlightFreq), na.rm=TRUE, offset = 0.02) +
labs(x='Region', y=' ') +
coord_flip() +
writer::graph_theme(legend.position = 'none') +
theme(axis.text.x = element_text(angle = 60))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.