Tautitaakka Suomessa

Kysymys

Mitkä ovat tärkeitä tautitaakkaa aiheuttavia tekijöitä Suomessa, ja miten niihin tulisi suhtautua? Erityisesti, kuinka suuri on ympäristöterveysaltisteiden aiheuttama tautitaakka?

Vastaus

• 

  Kuva 1. Tautitaakka Suomessa perustuen kansainvälisen IHME-instituutin arvioihin.

• 

  Kuva 2. Tautitaakka Suomessa eriteltyinä riskitekijöiden mukaan. Perustuu IHME-instituutin arvioihin.

• 

  Kuva 3. Ympäristötekijöiden aiheuttama tautitaakka Suomessa (tärkeimmät). Perustuu Tekaisu-hankkeen arvioihin.

• 

  Kuva 4. Ympäristötekijöiden aiheuttama tautitaakka Suomessa (vähemmän tärkeät; huomaa eri asteikko kuin kuvassa 3. Perustuu Tekaisu-hankkeen arvioihin.

Perustelut

Pääviesti

Kysymys: Mitkä ovat olennaiset tautitaakkaa aiheuttavat tekijät Suomessa? Vastaus: Arvio on tehty vuonna 2013. (Asikainen ym. Ympäristöaltisteisiin liittyvä tautitaakka Suomessa. Ympäristö ja Terveys 5/2013) Pienhiukkaset: kuolemat 12 171 DALY/vuosi uudet krooniset bronkiitit 1 024 DALY/vuosi vakavat oirepäivät 570 DALY/vuosi Ympäristömelu Sydäninfarkti 109 DALY/vuosi Vakava kiusaantuneisuus 2776 DALY/vuosi Vakava unihäiriö 5181 DALY/vuosi Sisäilman radon: kehkosyöpä 1973 DALY/vuosi Passiivinen tupakointi: iskeeminen sydäntauti 1552 DALY/vuosi astman ilmaantuvuus 340 DALY/vuosi keuhkosyöpä 48 DALY/vuosi pikkulasten infektiot 2 DALY/vuosi Auringon UV-säteily: ihosyöpä 1161 DALY/vuosi Kosteusvauriot kodeissa: astman ilmaantuvuus 473 DALY/vuosi alahengitystieoireet 444 DALY/vuosi ylähengitystieoireet 24 DALY/vuosi Kalan metyylielohopea: kehitysvamma vastasyntyneellä 536 DALY/vuosi Lyijy: lievän älyllinen kehitysvamman lapsella 382 DALY/vuosi verenpainetauti 4 DALY/vuosi Häkämyrkytykset: kuolemat 160 DALY/vuosi Ulkoilman otsoni: eri oirepäivät yhteensä 142 DALY/vuosi Sisäilman formaldehydi: astman ilmaantuvuus <15 vuotialla 120 DALY/vuosi Juomaveden fluoridi: hampaiden fluoroosi 95 DALY/vuosi Juomaveden kloorauksen sivutuotteet: virtsarakon syöpä 12 DALY/vuosi Kalan dioksiini: syövät 11 DALY/vuosi Hengitysilman bentseeni: leukemia 6 DALY/vuosi Ruoan mikrobit: vatsatauti 2 DALY/vuosi Porakaivojen arseeni: virtsarakon syöpä 1 DALY/vuosi Juomaveden mikrobit: vatsatauti 1 DALY/vuosi

Edistymisluokitus
Opasnetissa lukuisat sivut ovat työn alla eri vaiheissa. Niiden tietosisältöön pitää siis suhtautua harkiten. Tämän sivun sisällön edistyminen on arvioitu: Tämä sivu on tarkistettu Sisältö on tarkistettu ja viitteet ovat kunnossa. Vertautuu käsikirjoitukseen, joka on lähetettävissä lehteen.

Tämä sivu on tutkimus. Sivutunniste: Op_fi3944
Moderaattori:Arja (katso kaikki) Sivun edistyminen: Tarkistettu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3944}}

Data

Tautitaakka Suomessa THL:n tutkimuksessa(DALY/a)

Obs	Vaikutus	Lähde	Impact	Source	Haitta
1	Pienhiukkaset, kuolemat	Ulkolähde	A Fine particles, death	Outdoor source	12171
2	Ympäristömelu, vakava kiusaantuneisuus tai unihäiriö	Ulkolähde	B Environmental noise, severe annoyance or sleep disorder	Outdoor source	7957
3	Sisäilman radon, kehkosyöpä	Sisälähde	C Indoor radon, lung cancer	Indoor source	1973
4	Passiivinen tupakointi, iskeeminen sydäntauti	Sisälähde	D Environmental tobacco smoke, ischaemic heart disease	Indoor source	1552
5	Auringon UV-säteily, ihosyöpä	Ulkolähde	E UV radiation from sun, skin cancer	Outdoor source	1161
6	Pienhiukkaset, uudet krooniset bronkiitit	Ulkolähde	F Fine particles, chronic bronchitis	Outdoor source	1024
7	Pienhiukkaset, vakavat oirepäivät	Ulkolähde	G Fine particles, serious symptom days	Outdoor source	570
8	Kalan metyylielohopea, kehitysvamma vastasyntyneellä	Ruoka	H Methylmercury in fish, developmental defect in newborn	Food	536
9	Kosteusvauriot kodeissa, astman ilmaantuvuus	Sisälähde	I Moisture in homes, asthma incidence	Indoor source	473
10	Kosteusvauriot kodeissa, alahengitystieoireet	Sisälähde	J Moisture in homes, lower respiratory symptoms	Indoor source	444
11	Lyijy, lievän älyllinen kehitysvamman lapsella	Ruoka	K Lead, mild mental retardation in children	Food	382
12	Passiivinen tupakointi, astman ilmaantuvuus	Sisälähde	L Environmental tobacco smoke, asthma incidence	Indoor source	340
13	Häkämyrkytykset, kuolemat	Sisälähde	M Carbon monoxide poisoning, death	Indoor source	160
14	Ulkoilman otsoni, eri oirepäivät yhteensä	Ulkolähde	N Oudoor ozone, symptom days	Outdoor source	142
15	Sisäilman formaldehydi, astman ilmaantuvuus <15-vuotialla	Sisälähde	O Indoor formaldehyde, incidence of asthma in children <15 years	Indoor source	120
16	Ympäristömelu, sydäninfarkti	Ulkolähde	P Environmental noise, heart attack	Outdoor source	109
17	Juomaveden fluoridi, hampaiden fluoroosi	Juomavesi	Q Fluoride in drinking water, fluorosis in teeth	Drinking water	95
18	Passiivinen tupakointi, keuhkosyöpä	Sisälähde	R Environmental tobacco smoke, lung cancer	Indoor source	48
19	Kosteusvauriot kodeissa, ylähengitystieoireet	Sisälähde	S Moisture in homes, upper respiratory symptoms	Indoor source	24
20	Juomaveden kloorauksen sivutuotteet, virtsarakon syöpä	Juomavesi	T Chlorination byproducts in drinking water, bladder cancer	Drinking water	12
21	Kalan dioksiini, syövät	Ruoka	U Dioxins in fish, cancer	Food	11
22	Hengitysilman bentseeni, leukemia	Sisälähde	V Benzene in breathing air, leukemia	Indoor source	6
23	Lyijy, verenpainetauti	Ruoka	W Lead, high blood pressure	Food	4
24	Passiivinen tupakointi, pikkulasten infektiot	Sisälähde	X Environmental tobacco smoke, children's infections	Indoor source	2
25	Ruoan mikrobit, vatsatauti	Ruoka	Y Microbes in food, gastrointenstinal diseases	Food	2
26	Porakaivojen arseeni, virtsarakon syöpä	Juomavesi	Z Arsenic in drilled wells	Drinking water	1
27	Juomaveden mikrobit, vatsatauti	Juomavesi	Å Microbes in drinking water, gastrointestinal diseases	Drinking water	1

Laskenta

+ Näytä koodi- Piilota koodi library(OpasnetUtils) library(ggplot2) library(RColorBrewer) # Makes color palettes http://www.cookbook-r.com/Graphs/Colors_%28ggplot2%29/ # http://stackoverflow.com/questions/8197559/emulate-ggplot2-default-color-palette a <- c( "Pienhiukkaset, kuolemat", "Ulkolähde", 12171, "Pienhiukkaset, uudet krooniset bronkiitit", "Ulkolähde", 1024, "Pienhiukkaset, vakavat oirepäivät", "Ulkolähde", 570, "Ympäristömelu, sydäninfarkti", "Ulkolähde", 109, "Ympäristömelu, vakava kiusaantuneisuus tai unihäiriö", "Ulkolähde", 2776+5181, "Sisäilman radon, kehkosyöpä", "Sisälähde", 1973, "Passiivinen tupakointi, iskeeminen sydäntauti", "Sisälähde", 1552, "Passiivinen tupakointi, astman ilmaantuvuus", "Sisälähde", 340, "Passiivinen tupakointi, keuhkosyöpä", "Sisälähde", 48, "Passiivinen tupakointi, pikkulasten infektiot", "Sisälähde", 2, "Auringon UV-säteily, ihosyöpä", "Ulkolähde", 1161, "Kosteusvauriot kodeissa, astman ilmaantuvuus", "Sisälähde", 473, "Kosteusvauriot kodeissa, alahengitystieoireet", "Sisälähde", 444, "Kosteusvauriot kodeissa, ylähengitystieoireet", "Sisälähde", 24, "Kalan metyylielohopea, kehitysvamma vastasyntyneellä", "Ruoka", 536, "Lyijy, lievän älyllinen kehitysvamman lapsella", "Ruoka", 382, "Lyijy, verenpainetauti", "Ruoka", 4, "Häkämyrkytykset, kuolemat", "Sisälähde", 160, "Ulkoilman otsoni, eri oirepäivät yhteensä", "Ulkolähde", 142, "Sisäilman formaldehydi, astman ilmaantuvuus <15-vuotialla", "Sisälähde", 120, "Juomaveden fluoridi, hampaiden fluoroosi", "Juomavesi", 95, "Juomaveden kloorauksen sivutuotteet, virtsarakon syöpä", "Juomavesi", 12, "Kalan dioksiini, syövät", "Ruoka", 11, "Hengitysilman bentseeni, leukemia", "Sisälähde", 6, "Ruoan mikrobit, vatsatauti", "Ruoka", 2, "Porakaivojen arseeni, virtsarakon syöpä", "Juomavesi", 1, "Juomaveden mikrobit, vatsatauti", "Juomavesi", 1 ) b <- c( "Fine particles, death", "Fine particles, chronic bronchitis", "Fine particles, serious symptom days", "Environmental noise, heart attack", "Environmental noise, severe annoyance or sleep disorder", "Indoor radon, lung cancer", "Environmental tobacco smoke, ischaemic heart disease", "Environmental tobacco smoke, asthma incidence", "Environmental tobacco smoke, lung cancer", "Environmental tobacco smoke, children's infections", "UV radiation from sun, skin cancer", "Moisture in homes, asthma incidence", "Moisture in homes, lower respiratory symptoms", "Moisture in homes, upper respiratory symptoms", "Methylmercury in fish, developmental defect in newborn", "Lead, mild mental retardation in children", "Lead, high blood pressure", "Carbon monoxide poisoning, death", "Oudoor ozone, symptom days", "Indoor formaldehyde, incidence of asthma in children <15 years", "Fluoride in drinking water, fluorosis in teeth", "Chlorination byproducts in drinking water, bladder cancer", "Dioxins in fish, cancer", "Benzene in breathing air, leukemia", "Microbes in food, gastrointenstinal diseases", "Arsenic in drilled wells", "Microbes in drinking water, gastrointestinal diseases" ) a <- as.data.frame(matrix(a, ncol = 3, byrow = TRUE)) a <- data.frame(b, a) colnames(a) <- c("Impact", "Vaikutus", "Lähde", "Haitta") a[[4]] <- as.numeric(levels(a[[4]])[a[[4]]]) a <- a[order(-a$Haitta) , ] a$Lähde <- factor(a$Lähde, levels = c("Ulkolähde", "Sisälähde", "Ruoka", "Juomavesi"), ordered = TRUE) ggplot(a[a$Haitta >= 536 , ], aes(x = reorder(Vaikutus, Haitta, sum), weight = Haitta, fill = Lähde)) + geom_bar() + coord_flip() + theme_gray(base_size = 18) + labs( title = "Ympäristöterveyden tautitaakka Suomessa", x = "", y = "Haitta (DALY/vuosi)" ) + scale_fill_manual(values = brewer.pal(4, "Set2")) + #http://www.cookbook-r.com/Graphs/Colors_%28ggplot2%29/ theme(legend.position = c(0.8, 0.2)) # Put the legend inside the box in lower right corner ggplot(a[a$Haitta <= 536 , ], aes(x = reorder(Vaikutus, Haitta, sum), weight = Haitta, fill = Lähde)) + geom_bar() + coord_flip() + theme_gray(base_size = 18) + labs( title = "Ympäristöterveyden tautitaakka Suomessa", x = "", y = "Haitta (DALY/vuosi)" ) + scale_fill_manual(values = brewer.pal(4, "Set2")) + theme(legend.position = c(0.8, 0.2)) ############### Englanniksi a$Source <- a$Lähde levels(a$Source) <- c("Outdoor source", "Indoor source", "Food", "Drinking water") ggplot(a[a$Haitta >= 536 , ], aes(x = reorder(Impact, Haitta, sum), weight = Haitta, fill = Source)) + geom_bar() + coord_flip() + theme_gray(base_size = 18) + labs( title = "Environmental burden of disease in Finland", x = "", y = "Impact (DALY/year)" ) + scale_fill_manual(values = brewer.pal(4, "Set2")) + theme(legend.position = c(0.8, 0.2)) ggplot(a[a$Haitta <= 536 , ], aes(x = reorder(Impact, Haitta, sum), weight = Haitta, fill = Source)) + geom_bar() + coord_flip() + theme_gray(base_size = 18) + labs( title = "Environmental burden of disease in Finland", x = "", y = "Impact (DALY/year)" ) + scale_fill_manual(values = brewer.pal(4, "Set2")) + theme(legend.position = c(0.8, 0.2)) # Testikoodi pallurakaavion tekoon. a$V4 <- 1:25 a$V5 <- c(rep("Ulkoilma", 3), rep("Muu", 22)) ggplot(a, aes(x = V4, y = V4, colour = V5, size = sqrt(Haitta), label = Vaikutus)) + geom_point() + geom_text(aes(label=Vaikutus),hjust=0, vjust=0, size = 3) + scale_size_identity()

Tautitaakkakuvat IHME-instituutin vuoden 2016 datasta

+ Näytä koodi- Piilota koodi library(ggplot2) # http://ghdx.healthdata.org/gbd-results-tool?params=gbd-api-2016-permalink/a84834e3112e939324410478c04a556a d <- read.csv("//cesium/jtue$/_Downloads/IHME/IHME-GBD_2016_DATA-6282c9ca-1.csv") # Context: risks dc <- read.csv("//cesium/jtue$/_Downloads/IHME/IHME-GBD_2016_DATA-9d17927e-1.csv") # Context: causes dc$cause_name <- factor(dc$cause_name, levels = dc$cause_name[order(dc$val)]) d$cause_name <- factor(d$cause_name, levels = levels(dc$cause_name)) riskorder <- aggregate(d$val, by = d["rei_name"], FUN = "sum") riskorder <- riskorder$rei_name[order(riskorder$x)] d$rei_name <- factor(d$rei_name, levels = riskorder) palet <- c( '#a6cee3','#1f78b4','#b2df8a','#33a02c','#fb9a99','#e31a1c','#fdbf6f', '#ff7f00','#cab2d6','#6a3d9a','#ffff99','#b15928', # First 12 colours from Colorbrewer Paired. 'cyan2','cyan4','plum1'#,'plum4' ) #unique(d[c("rei_id","rei_name")]) #rei_id rei_name #7 169 All risk factors #22 202 Environmental/occupational risks #1 82 Unsafe water, sanitation, and handwashing #2 85 Air pollution #3 89 Other environmental risks #29 126 Occupational risks #Behavioral risks #4 92 Child and maternal malnutrition #5 98 Tobacco #6 101 Alcohol and drug use #11 110 Dietary risks #20 133 Sexual abuse and violence #28 125 Low physical activity #84 170 Unsafe sex #10 104 Metabolic risks #unique(d[c("cause_id","cause_name")]) #cause_id cause_name #1 294 All causes #123 295 Communicable, maternal, neonatal, and nutritional diseases #73 409 Non-communicable diseases #86 410 Neoplasms #97 491 Cardiovascular diseases #107 508 Chronic respiratory diseases #6 521 Cirrhosis and other chronic liver diseases #8 526 Digestive diseases #13 542 Neurological disorders #18 558 Mental and substance use disorders #23 586 Diabetes, urogenital, blood, and endocrine diseases #32 626 Musculoskeletal disorders #46 640 Other non-communicable diseases #54 687 Injuries #61 688 Transport injuries #67 696 Unintentional injuries #38 717 Self-harm and interpersonal violence #43 728 Forces of nature, conflict and terrorism, and executions and police conflict #levels(d$cause_name) #[1] "Forces of nature, conflict and terrorism, and executions and police conflict" #[2] "HIV/AIDS and tuberculosis" #[3] "Digestive diseases" #[4] "Transport injuries" #[5] "Cirrhosis and other chronic liver diseases" #[6] "Communicable, maternal, neonatal, and nutritional diseases" #[7] "Self-harm and interpersonal violence" #[8] "Chronic respiratory diseases" #[9] "Diabetes, urogenital, blood, and endocrine diseases" #[10] "Unintentional injuries" #[11] "Neurological disorders" #[12] "Other non-communicable diseases" #[13] "Injuries" #[14] "Musculoskeletal disorders" #[15] "Mental and substance use disorders" #[16] "Neoplasms" #[17] "Cardiovascular diseases" #[18] "Non-communicable diseases" #[19] "All causes" syynimi <- c( "Luonnonmullistukset, terrorismi", "HIV/AIDS, tuberkuloosi", "Ruoanulatuselimistön taudit", "Liikenneonnettomuudet", "Kirroosi ja muut maksasairaudet", "Tartuntataudit, äitiys, ravitsemus", "Itsetuho ja väkivalta", "Krooniset hengityselintaudit", "Diabetes, veri- ja umpieritystaudit ym", "Vahingot ja onnettomuudet", "Hermoston taudit", "Muut ei-tarttuvat taudit", "Onnettomuudet", "Tuki- ja liikuntaelimistön taudit", "Mielenterveys ja päihteet", "Syöpä", "Sydän- ja verenkiertoelimistön taudit", "Ei-tarttuvat taudit", "Kaikki syyt" ) levels(d$cause_name) <- syynimi levels(dc$cause_name) <- syynimi #> levels(d$rei_name) #[1] "Unsafe water, sanitation, and handwashing" #[2] "Unsafe sex" #[3] "Child and maternal malnutrition" #[4] "Other environmental risks" #[5] "Sexual abuse and violence" #[6] "Air pollution" #[7] "Low physical activity" #[8] "Occupational risks" #[9] "Environmental/occupational risks" #[10] "Tobacco" #[11] "Alcohol and drug use" #[12] "Dietary risks" #[13] "Metabolic risks" #[14] "All risk factors" levels(d$rei_name) <- c( "Likainen vesi, käsienpesu", "Suojaamaton seksi", "Lasten ja äitien aliravitsemus", "Muut ympäristöterveysriskit", "Seksuaalinen väkivalta", "Ilmansaasteet", "Liikunnan puute", "Työterveysriskit", "Ympäristö- ja työterveysriskit", "Tupakka", "Alkoholi ja päihteet", "Ravitsemuksen riskit", "Aiheenvaihdunnan häiriöt", "Kaikki riskitekijät" ) dc$valy <- dc$val + ifelse(dc$val<250000, 20000, -40000) dc <- dc[!dc$cause_id %in% c(294, 295, 409, 687), ] if(TRUE) { plotfu <- png; suffix <- "png"; scale = 300; BS <- 48 } else { plotfu <- pdf; suffix <- "pdf"; scale = 1; BS <- 12 } plotfu(paste("Tautitaakka Suomessa 2016 riskitekijöittäin.", suffix, sep = ""), width = 8*scale, height = 5*scale) ggplot(dropall(d[!d$rei_id %in% c(169, 202) & !d$cause_id %in% c(294, 295, 409, 687), ]) , aes(x=rei_name, weight=val, fill=cause_name))+geom_bar()+coord_flip()+ scale_y_continuous(labels=scales::comma)+ scale_fill_manual(values = rev(palet[-14]))+ # AIDS is missing so remove one colour guides(fill = guide_legend(reverse=TRUE, title="Tauti", keyheight=0.8))+ theme_gray(base_size=BS)+ theme(legend.position=c(0.75,0.40)) + labs( title = "Tautitaakka Suomessa 2016 tunnettujen riskitekijöiden mukaan", x="Riskitekijä", y="Tautitaakka (menetettyjä terveitä elinvuosia)") dev.off() plotfu(paste("Tautitaakka Suomessa 2016.", suffix, sep = ""), width = 8*scale, height = 5*scale) ggplot(dc , aes(x=cause_name, weight=val, fill=cause_name, label=round(val,-2)))+ geom_bar()+geom_text(aes(y=valy))+coord_flip()+ guides(fill=FALSE)+scale_y_continuous(labels=scales::comma)+ scale_fill_manual(values = rev(palet))+ theme_gray(base_size = BS)+ labs( title="Tautitaakka Suomessa 2016", x="Tauti", y="Tautitaakka (menetettyjä terveitä elinvuosia)") dev.off()

Katso myös

• Tautitaakka auttaa hahmottamaan ja välttämään terveysriskejä (linkissä oleva teksti oli ennen tällä sivulla)
• Tautitaakka avoimissa tietojärjestelmissä
• Tautitaakka-seminaarisarja 2014
• Seturi
• op_en:Ebode
• Ympäristötiedon foorumi
• Kunta-TV 29.10.2015: Ihminen ympäristössä: Ilma (pienhiukkaset, melu, säteily)
• VTV Pienhiukkasten terveysvaikutuksia ei huomioida riittävästi [1]
• Maailman vaarallisimmat eläimet: malaria