Skip to content

Instantly share code, notes, and snippets.

@cavedave

cavedave/vaccinewaffle.r

Created September 10, 2021 19:20
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cavedave/4b486b01a68e614997da1ba04b595801 to your computer and use it in GitHub Desktop.
Save cavedave/4b486b01a68e614997da1ba04b595801 to your computer and use it in GitHub Desktop.
Download ZIP
waffle graph of vaccination to ICU proportions
Raw
vaccinewaffle.r
library(ggplot2)
library(waffle)
people <- c(`Vaccinated `=91,`Vaccinated in ICU`=1, `Unvaccinated`=7,
`Unvaccinated in ICU `=1)
waffle(people, rows=10, size=0.6,
colors=c("#44D2AC", "#E48B8B", "#B67093",
"#3A9ABD"),
title="Irish Adults",
xlab="92% vaccinated have 50% of ICU cases")
@cavedave
Copy link
Author

Screenshot 2021-09-10 at 20 20 54

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment