Create pictogram.R