File:Kuolleisuus koronaan Suomessa ikäryhmittain 1.svg

Original file(SVG file, nominally 857 × 539 pixels, file size: 13 KB)

Captions

Captions

Add a one-line explanation of what this file represents

Summary

edit
Description
Suomi: Kuolleisuus koronaan Suomessa ikäryhmittäin prosentteina

sen hetkiset koronana liittyvät kuolemat jaettumna sen hetkisillä tapauksilla (ns. CFR).

Luku poikkeaa todellisesta infektiokuolleisuudesta (IFR).
Date
Source Own work
Author Merikanto

Source of data is THL, Finland. Open Covid-19 dataset

R script download frim THL dataset LibreOffice draw

Data (edited)

Ikaryhma Kuolinprosentti 0 Alle 0,06 10 Alle 0,06 20 Alle 0,06 30 0,06 40 0,09 50 0,35 60 1,44 70 9,26 80 30,63

"R" code to obtain data. Must further process.


    1. thl finland covid cases and deaths by age groups
    2. r script, thl api 12/2020
    3. 31.1.2021 v 0000.0001
  1. install.packages("ggplot2", "rjstat","svglite" repos ="https://ftp.acc.umu.se/mirror/CRAN/")


library(rjstat) library(ggplot2)

  1. library(svglite)



peruspolku="/Users/himot/akor1/" ulosnimi="viikottaiset_koronatapaukset_2020.svg" polkunimi=paste0(peruspolku, ulosnimi)


url1 <- "https://sampo.thl.fi/pivot/prod/fi/epirapo/covid19case/fact_epirapo_covid19case.json?row=ttr10yage-444309&column=dateweek20200101-509030.&filter=measure-492118" cube1 <- fromJSONstat(url1, naming = "label", use_factors = F, silent = T) res00 <- cube11

url2 <- "https://sampo.thl.fi/pivot/prod/fi/epirapo/covid19case/fact_epirapo_covid19case.json?row=ttr10yage-444309&column=dateweek20200101-509030.&filter=measure-444833" cube2 <- fromJSONstat(url2, naming = "label", use_factors = F, silent = T) res02 <- cube21

  1. res00

ikaryhma=res00$ttr10yage kuolleet_ikaryhmittain=as.integer(res00$value) tapaukset_ikaryhmittain=as.integer(res02$value)

kuolin_prosentit=kuolleet_ikaryhmittain/tapaukset_ikaryhmittain

kuolin_prosentit=kuolin_prosentit*10000

kuolin_prosentit=as.integer(kuolin_prosentit)

kuolin_prosentit=as.double(kuolin_prosentit)

kuolin_prosentit=kuolin_prosentit/100.0

  1. print (ikaryhma)
  2. print (kuolleet_ikaryhmittain)
  3. print (tapaukset_ikaryhmittain)
  4. print (kuolin_prosentit )


ikaryhmien_alarajat<-c(0,10,20,30,40,50,60,70,80)

kuolin_prosentit2 <- kuolin_prosentit[-length(kuolin_prosentit)]

print (kuolin_prosentit2)

df2<-data.frame(ikaryhmien_alarajat, kuolin_prosentit2)


names(df2)<-c("Ikaryhman_alaraja", "Kuolinprosentti")

write.csv2(df2, "./kuolleet_ikaryhmittain.csv", OutDec="," )

  1. df1<-data.frame(ikaryhma,tapaukset_ikaryhmittain, kuolleet_ikaryhmittain, kuolin_prosentit)
  2. write.csv2(df1, "./kuolleet_ikaryhmittain.csv", sep = ";", OutDec="," )



Licensing

edit
I, the copyright holder of this work, hereby publish it under the following license:
w:en:Creative Commons
attribution share alike
This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
  • share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current09:27, 31 January 2021Thumbnail for version as of 09:27, 31 January 2021857 × 539 (13 KB)Merikanto (talk | contribs)Uploaded own work with UploadWizard

There are no pages that use this file.

Metadata