1. 3. covid-19 vaccinations in Finland
   4. Source: THL Open data
   5. 0000.0000 17.6.2021

library(rjstat) library(ggplot2) library(svglite) library(scales)

widthi=10 heighti=5

tulosfilee1="./Covid-19-rokotukset_1.svg"

nth_element <- function(vector, starting_position, n) {

 vector[seq(starting_position, length(vector), n)] 
 }   
 

url_base1="https://sampo.thl.fi/pivot/prod/fi/vaccreg/cov19cov/fact_cov19cov.json" measure1<-"?filter=measure-533175" ##measure1<-"?filter=measure-433796" row1<-"&row=cov_vac_dose-533170" col1="&column=dateweek20201226-525459L" request1<-paste0(measure1,row1, col1) url1<-paste0(url_base1, request1) cube1 <- fromJSONstat(url1, naming = "label", use_factors = F, silent = T) res01 <- cube11

url_base2="https://sampo.thl.fi/pivot/prod/fi/vaccreg/cov19cov/fact_cov19cov.json" measure2<-"?filter=measure-533175" row2<-"&row=cov_vac_dose-533164" col2="&column=dateweek20201226-525459L" request2<-paste0(measure2,row2, col2) url2<-paste0(url_base2, request2) cube2 <- fromJSONstat(url2, naming = "label", use_factors = F, silent = T) res02 <- cube21

paivat=as.Date(res01$dateweek20201226) ensimmainen_annos0=as.integer(res01$value) toinen_annos0=as.integer(res02$value)

ensimmainen_annos=ensimmainen_annos0 toinen_annos=toinen_annos0

#ensimmainen_annos=cumsum(ensimmainen_annos0) #toinen_annos=cumsum(toinen_annos0)

rokotukset=data.frame(paivat, ensimmainen_annos, toinen_annos) #names(rokotukset)<-c("Päivä", "Ensimmäinen annos", "Toinen annos")

#svg(filename=tulosfilee1, width=8, height=3, pointsize=12) svg(filename=tulosfilee1, width=widthi, height=heighti, pointsize=12)

rok <- data.frame(x = c(paivat, paivat), ## c

                  y = c(ensimmainen_annos, toinen_annos),    ## y
                  group = c(rep("ensimmainen_annos", length(ensimmainen_annos)), rep("toinen_annos", length(toinen_annos)) ) )   
                  

ggplot(rok, aes(x,y, group=group) )+ geom_line(aes(x, y, color = group), size=3)+ theme_light()+ ggtitle("Koronarokotukset paivittain") + xlab("Kuukausi 2021-") + ylab("Rokotetut/paiva")+ theme(title=element_text(size=18), axis.text=element_text(size=17,face="bold"),axis.title=element_text(size=19,face="bold")) + scale_color_manual( values = c("green", "blue"), name="Rokotukset", labels = c("Ensi annos", "Toinen annos"))+ theme(legend.text=element_text(size=rel(1.5)),legend.title=element_text(size=rel(1.5)) ) + theme(legend.position = c(0.2, 0.8)) + scale_y_continuous(breaks= pretty_breaks())

dev.off()