In gadenbuie/js4shiny: Companion Package for JavaScript for Shiny Users

emperors %>%
  count(cause) %>%
  ggplot(aes(x = n, y = cause)) +
  geom_col() +
  geom_text(
    aes(label = n, x = n - .25),
    color = "white", 
    size = 5, 
    hjust = 1
  ) +
  cowplot::theme_minimal_vgrid(16) +
  theme(
    axis.title.y = element_blank(), 
    legend.position = "none" 
  ) +
  xlab("number of emperors")

gadenbuie/js4shiny documentation built on March 25, 2024, 8:16 p.m.