The data used for this presentation can be freely obtained from Covid19 GitHub page https://github.com/owid/covid-19-data/tree/master/public/data)
The full explanation of the data can be found on the same webpage.

- Selected columns: location, date, total cases, total deaths, fully vaccinated, population; the column date been dropped later. - Selected rows: the most recent date, only completed cases. - Added values: vaccination ratio; death ratio; total number of cases ratio; all of the above with respect to the country population.

# Download temp file to obtain data and then unlink
temp <- tempfile()
download.file(
      "https://covid.ourworldindata.org/data/owid-covid-data.csv", temp)
data<-read.csv(temp)
unlink(temp)

#Data preparation
mydata<-data[,c(3,4,5,8,37,45)]
mydata<-subset(mydata, mydata$date==max(mydata$date))
mydata<- mydata[,c(-2)]
mydata<-mydata[complete.cases(mydata),]
mydata$vac_ratio<-round(mydata$people_fully_vaccinated/mydata$population,2)
mydata$death_ratio<-round(mydata$total_deaths/mydata$population,2)
mydata$cases_ratio<-round(mydata$total_cases/mydata$population,2)
colnames(mydata)[colnames(mydata) == "people_fully_vaccinated"] <- "f_vacc"