Create paretocharts.R