library(sf)
library(ggplot2)
library(dplyr)
mydata <-readr::read_csv("~/map/done.csv")
nc = st_read("C:/Users/Radzhab/Documents/map/tyumen.shp")

merged = dplyr::left_join(nc, mydata, by= c("NAME"="Country"))


ggplot(merged)+
  geom_sf(aes(fill= ))+

....
  scale_fill_gradient(low= "#56B1F7", high = "#132B43")