Veritical, left-aligned layout for waffle plots

parts <- c(80, 30, 20, 10)
w1 <- waffle(parts, rows=8)
w2 <- waffle(parts, rows=8)
w3 <- waffle(parts, rows=8)
chart <- iron(w1, w2, w3)

# print chart