European Countries Covid Vaccination Rates. Vaccine take-up, from west to east. Model this asked marginalrevolution about this tweet https://twitter.com/MacaesBruno/status/1458773133897478149

vaccine.csv

vaccine.r

vaccine <- read.csv("vaccine.csv",header=TRUE) 

res <- cor(vaccine$vaccinated,vaccine$long)
res
#lat 0.24
#long -0.66

library(ggplot2)

p<-ggplot(vaccine, aes(x=long, y=vaccinated)) + geom_point()+ geom_smooth(method="lm", se=False)

p<-p + ggtitle("European Covid Vaccination Rates West->East") +
  ylab("% Vaccinated") + xlab("Longitude of Countries Population") +theme_bw()+ theme(plot.title = element_text(hjust = 0.5))
  


p<-p + annotate(geom="text", x=-19, y=80, label="Iceland",
              color="black",size = 3.5)    

p<-p + annotate(geom="text", x=31, y=63, label="Turkey",
              color="black",size = 3.5)  
#Russia	40.4	37.6
p<-p + annotate(geom="text", x=36, y=38, label="Russia",
              color="black",size = 3.5)  
#Bulgaria	22.2	24.87
p<-p + annotate(geom="text", x=24.5, y=22.0, label="Bulgaria",
              color="black",size = 3.5) 
#Bosnia	24.4	18.41
p<-p + annotate(geom="text", x=19, y=24, label="Bosnia",
              color="black",size = 3.5) 
#Serbia	46.5	20.8
p<-p + annotate(geom="text", x=20, y=44, label="Serbia",
              color="black",size = 3.5)

#Portugal	88.9	-8.436
p<-p + annotate(geom="text", x=-8, y=92, label="Portugal",
              color="black",size = 3.5) 

#Malta	83.8	14.467
p<-p + annotate(geom="text", x=14, y=87, label="Malta",
              color="black",size = 3.5) 

#United Kingdom	73.8	-1.317
p<-p + annotate(geom="text", x=-1, y=71, label="UK",
              color="black",size = 3.5) 

#Ireland	76.8	-7.063
p<-p + annotate(geom="text", x=-7, y=74, label="Ireland",
              color="black",size = 3.5) 
#Finland	76.6	25.064
p<-p + annotate(geom="text", x=25, y=74, label="Finland",
              color="black",size = 3.5) 
#France	76.1	2.562
p<-p + annotate(geom="text", x=2.5, y=78, label="France",
              color="black",size = 3.5)
#Germany	69.2	9.329
p<-p + annotate(geom="text", x=9, y=64, label="Germany",
              color="black",size = 3.5)
#Italy	77.5	12.128
p<-p + annotate(geom="text", x=12, y=75, label="Italy",
              color="black",size = 3.5)
#Poland	54	19.378
p<-p + annotate(geom="text", x=17, y=53, label="Poland",
              color="black",size = 3.5)
#Spain	81.5	-3.583
p<-p + annotate(geom="text", x=-3, y=85, label="Spain",
              color="black",size = 3.5)
#Romania	36.9	25.591
p<-p + annotate(geom="text", x=25, y=34, label="Romania",
              color="black",size = 3.5)

#Belarus	29.2	27.56
p<-p + annotate(geom="text", x=28, y=25.2, label="Belarus",
              color="black",size = 3.5)
#Montenegro	41.8	19.26
p<-p + annotate(geom="text", x=19, y=40, label="Montenegro",
              color="black",size = 3.5)

#Sweden	71.6	15.562
p<-p + annotate(geom="text", x=15, y=70, label="Sweden",
              color="black",size = 3.5)

#Ukraine	27.3	30.5
p<-p + annotate(geom="text", x=26, y=29, label="Ukraine",
              color="black",size = 3.5)

#Latvia	65.2	24.166
p<-p + annotate(geom="text", x=24.166, y=64.9, label="Latvia",
              color="black",size = 3.5)
p<-p + annotate(geom="text", x=35, y=10, label="data:ourworldindata\n cor:-0.66",
              color="black",size = 2.5)

p

p
ggsave("TrustVaccinesEU.png")