Create mapcolor_function.r