inst/charts/18.R

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))
NicolasJBM/writer documentation built on Aug. 12, 2019, 2:36 p.m.