Tauti on vaivannut Suomessa ja ulkomailla alkuvuodesta saakka, eikä loppua ole näköpiirissä. Kevään kuukausina internet oli pullollaan erilaisia tartuntadataa visualisoivia sovelluksia, mutta paras pöhinä on jo laantunut. Itse bloggasin THL-koronadatarajapinnoista maaliskuussa ja silloin julkaisemani SARS-Cov-2 -tapausten aikasarjat sairaanhoitopiireittäin -näkymä on päivittinyt joka päivä siitä lähtien, kiitos THL:n datan ja rajapinnan.
Korona on vaikuttanut myös työhöni Kelassa ja julkaisin tutkimusyksikön kollegoitteni kanssa kaksi koronan vaikutuksia seuraavaa verkkosivua.
koronamittarit.kela.fi-palvelussa havainnollistetaan päivä-, viikko- ja kuukausitason analyyseillä korona-aikana tapahtuneita muutoksia Kelan etuuksien hakemisessa, etuuksien saajien määrissä sekä Kelan asiakaspalvelun toiminnassa. Sivusto päivittyy automaattisesti joka arkipäivä klo. 10.
Reseptilääkkeiden ostot ATC-luokittain-verkkosovelluksessa puolestaan seurataan lääkkeiden kulutusta ATC-luokittain sekä sairaanhoitopiirien että koko Suomen tasolla.
Molemmat sivustot tarjoavat suurpiirteisten analyysien ohella avointa dataa. Koronamittareiden datan on kuvattu sivustolla ja ovat ladattavissa Github:sta. Datat päivittyvät joka arkipäivä. Lääkesovelluksen datat löytyvät myös Github:sta.
Datojen käytössä pääset alkuun kokeilemalla R-kielellä tehtyjä esimerkkejä: koronamittaridatasta ja lääkedatasta. Voit esimerkiksi luoda tilin rstudio.cloud:iin ja kopioida em. esimerkkikoodit sinne ja alkaa ihmetellä! Alla yksi esimerkki!
library(ggplot2)datplot <- dat %>% dplyr::filter(aikatyyppi =="viikko", ikaluokka =="kaikki", sukupuoli =="kaikki", alue =="Koko Suomi") %>%mutate(viikko =as.integer(viikko))ggplot(datplot, aes(x = viikko, y = saapuneet_hakemukset, color = vuosi, fill = vuosi)) +geom_line() +geom_point(shape =21, color ="white", size =1.6, show.legend =FALSE) +facet_wrap(~etuus, ncol =1, scales ="free_y") +scale_x_continuous(breaks =1:max(datplot$viikko)) +labs(fill =NULL, color =NULL, y =NULL,title ="Hakemustilanne viikottain",subtitle ="Kelaan viikon aikana saapuneet hakemukset",x ="Viikko") +theme_light() +theme(legend.position ="right", legend.direction ="vertical",panel.grid.minor =element_blank()) +scale_y_continuous(labels =function(x) format(x, big.mark =" ",scientific =FALSE),limits =c(0,NA))
Uudelleenkäyttö
CC BY 4.0
Viittaus
BibTeX-viittaus:
@online{kainu2020,
author = {Kainu, Markus and Kainu, Markus},
title = {Kelan koronamittarit ja lääkesovellus},
date = {2020-11-30},
url = {https://markuskainu.fi/posts/2020-11-30-kelan-koronamittarit-ja-laakesovellus},
langid = {fi}
}