powered by
pad
waffle
Forge(...)
parts <- c(80, 30, 20, 10) w1 <- Waffleplot(parts, rows=8) w2 <- Waffleplot(parts, rows=8) w3 <- Waffleplot(parts, rows=8) chart <- Forge(w1, w2, w3) print(chart)
Run the code above in your browser using DataLab