1.Зареждане на необходимите библиотеки

library(tidyverse)
library(sf)

2.Зареждане на данните от изборите

votes <- read_csv("~/Desktop/R/Rmd/votes.csv", col_types = "ffffff")
## Reading layer `gadm36_BGR_2' from data source 
##   `/home/nick/Desktop/R/Rmd/bg_map.gpkg' using driver `GPKG'
## Simple feature collection with 263 features and 13 fields
## Geometry type: MULTIPOLYGON
## Dimension:     XY
## Bounding box:  xmin: 22.34375 ymin: 41.23481 xmax: 28.60903 ymax: 44.21268
## Geodetic CRS:  WGS 84