read_csv('https://raw.githubusercontent.com/khakhalin/Sketches/master/ru_vote_2020/cleaned.csv')->vote

vote %>% glimpse()
vote %>% filter() %>% 
  
  mutate(pres=given/nominal,yes_per=yes/(received-damaged),no_per=no/(received-damaged)) %>% 
select(c(1:3,10:12)) %>% pivot_longer(-c(1:4),names_to = 'type',values_to = 'per') %>% 
  ggplot(aes(pres,per,col=type))+
  geom_point(size=0.05,alpha=0.5)+
  scale_x_continuous(breaks = seq(0,1,0.05))+
scale_x_continuous(breaks = seq(0,1,0.05))