Waffle Bar Chart with scale

Question

I\'m trying to recreate this waffle bar chart: https://github.com/hrbrmstr/waffle#waffle-bar-charts-with-scales

library(dplyr)
library(waffle)

storms %>%