I added the command coord_equal() in the function plot_map in order to fix the width-height ratio to the one specified by the shapefile