Ero sivun ”Tiedosto:Ympäristöterveysindikaattorit.pptx” versioiden välillä

Esitys ympäristöterveyden indikaattoreista, esitetty ensimmäisenä tiistaiseminaarisarjassa 11.9.2018 Neulasessa. Esitys on tehty alunperin Google Drivessa.

Keksitty data ja koodi kuvaan 3 (nykyhetken tiedot vastaavat kutakuinkin IHME-instituutin arvioita Suomelle.

Aika	Vaikutus	Tautitaakka
1910	Pienhiukkaset	74000
1920	Pienhiukkaset	78000
1930	Pienhiukkaset	80000
1940	Pienhiukkaset	85000
1950	Pienhiukkaset	75000
1960	Pienhiukkaset	67000
1970	Pienhiukkaset	51000
1980	Pienhiukkaset	35000
1990	Pienhiukkaset	32000
2000	Pienhiukkaset	31000
2010	Pienhiukkaset	28000
2018	Pienhiukkaset	25000
1910	Tuhkarokko	10000
1920	Tuhkarokko	11000
1930	Tuhkarokko	12000
1940	Tuhkarokko	18000
1950	Tuhkarokko	14000
1960	Tuhkarokko	13500
1970	Tuhkarokko	7000
1980	Tuhkarokko	300
1990	Tuhkarokko	30
2000	Tuhkarokko	20
2010	Tuhkarokko	20
2018	Tuhkarokko	14
1910	Vesi- ja ruokavälitteiset epidemiat	1100
1920	Vesi- ja ruokavälitteiset epidemiat	1400
1930	Vesi- ja ruokavälitteiset epidemiat	1200
1940	Vesi- ja ruokavälitteiset epidemiat	1300
1950	Vesi- ja ruokavälitteiset epidemiat	900
1960	Vesi- ja ruokavälitteiset epidemiat	300
1970	Vesi- ja ruokavälitteiset epidemiat	150
1980	Vesi- ja ruokavälitteiset epidemiat	70
1990	Vesi- ja ruokavälitteiset epidemiat	53
2000	Vesi- ja ruokavälitteiset epidemiat	55
2010	Vesi- ja ruokavälitteiset epidemiat	50
2018	Vesi- ja ruokavälitteiset epidemiat	50
1910	Keuhkosyöpä	41000
1920	Keuhkosyöpä	42000
1930	Keuhkosyöpä	47000
1940	Keuhkosyöpä	51000
1950	Keuhkosyöpä	56000
1960	Keuhkosyöpä	55000
1970	Keuhkosyöpä	50000
1980	Keuhkosyöpä	47000
1990	Keuhkosyöpä	45000
2000	Keuhkosyöpä	41000
2010	Keuhkosyöpä	40000
2018	Keuhkosyöpä	40000

b <- read.csv("clipboard",sep="\t")
ggplot(b, aes(x=Aika, y=Tautitaakka, colour=Vaikutus))+geom_line()+
  geom_text(
    data=data.frame(
      x=c(1960,1975),
      y=c(70000,15000),
      text=c("Kaukolämpö","MPR-rokote"),
      Vaikutus=c("Pienhiukkaset","Tuhkarokko")
    ),
    aes(x=x, y=y, label=text, angle=90))+
  labs(title="Tautitaakka Suomessa (arvaus demonstaatiota varten)",
       y="Tautitaakka (DALY/a)"
       )+
  theme_gray(base_size=18)

Katso myös

Samasta aihepiiristä on myös toinen esitys Hiilineutraali Helsinki 2035 ja ympäristöterveys.