Modified version of Rcartogram