R code – Figure concentration index