Chart is based on excellent tutorial by @jayjacobs. Just go to his blog entry at rud.is.
Chart is an attempt to pick a mining capital of the world. It counts all the publicly-listed and active mining companies that are headquartered in each city. Data is from Mining Intelligence.
Here is the code.
library(waffle) ###Open Waffle package addresses <- c(`Vancouver, Canada - 805`=805, `Toronto, Canada - 300`=300, `Perth, Australia - 263`=263, 'Sydney, Australia - 96'=96,`London, United Kingdom - 92`=92, `Calgary, Canada - 56`=56,`Melbourne, Australia - 37`=37, `Montreal, Canada - 30`=30,`Johannesburg, South Africa - 14`=14) ###Assign cities and values to variable addresses waffle(addresses, rows=25, size=0.5, ###rows is rows. size is area around box. colors=c('#a6cee3','#1f78b4','#b2df8a','#33a02c','#fb9a99','#e31a1c','#fdbf6f','#ff7f00','#cab2d6'), ### using colorbrewer for pretty shades title="Listed miners and juniors per city", ###Label xlab=NULL)