R script for Russia choropleth map with zoomed European part