I added the command coord_equal() to the function plot_map in order to keep the scale of the shapefile