added r sctript for pretty color coded map