Ero sivun ”Ympäristöterveydelliset viite- ja raja-arvot” versioiden välillä

Versio 7. maaliskuuta 2013 kello 13.35

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 luonnos Sivun olennainen sisältö ja rakenne on jo hahmottunut, mutta kuitenkin isoja sisältöpuutteita on edelleen.

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi3373
Moderaattori:Jouni (katso kaikki) Sivun edistyminen: Luonnos. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3373}}

Kysymys

Mitkä ovat viralliset ympäristöterveydelliset raja- ja viitearvot Suomessa?

Vastaus

+ Näytä koodi - Piilota koodi

# "Hae muuttujat on monikossa, koska tällä sivulla määritellään kaksi muuttujaa.
# graphics="1" tarvitaan, jotta kuvaajat näkyvät ajosivulla.

library(OpasnetUtils) 	# Haetaan peruspaketti
library(ggplot2)	# Haetaan grafiikkapaketti

objects.latest("Op_fi3373", "alustus") 	# Haetaan tarvittavat muuttujat (tämän sivun alustus-koodin tuottamat ovariablet)

oprint(pitoisuusviitearvo)	# Tulostetaan muuttujien tulostaulukot (tulos lasketaan automaattisesti)
oprint(altistusviitearvo)

#oprint(summary(pitoisuusviitearvo))	# Tulostetaan muuttujien yhteenvetotaulukko (jokin vika on vielä)
#oprint(summary(altistusviitearvo))

pitoisuusviitearvo <- EvalOutput(pitoisuusviitearvo)	# Lasketaan tulos grafiikkaa varten
altistusviitearvo <- EvalOutput(altistusviitearvo)


ograph <- function( # Määritellään yleisfunktio peruskuvaajan piirtämiseen.
	ovariable, 
	x, 
	y = paste(ovariable@name, "Result", sep = ""), 
	type = geom_boxplot(), 
	fill = NA, ...
) {
	out <- ggplot(ovariable@output, aes_string(x = x, y = y, fill = fill)) + # Määritellään kuvan sarakkeet
		type + 
		theme_grey(base_size=24) +	# Fontin kokoa suurennetaan
		labs(
			title	= ovariable@name,
			y = paste(unique(ovariable@output[[paste(ovariable@name, "Yksikkö", sep = "")]]), sep = "", collapse = ", ")
		) +
		theme(axis.text.x = element_text(angle = 90, hjust = 1)) # X-akselin tekstit käännetään niin että mahtuvat
	return(out)
}

ograph(pitoisuusviitearvo, x = "Altiste", fill = "Matriisi", type = geom_bar())

ograph(altistusviitearvo, x = "Altiste", fill = "Reitti", type = geom_bar())

Perustelut

Data

Maaperän pilaantuneisuuden terveysperusteiset viitearvot

Maapera(-)
Obs	Altiste	Matriisi	Yksikkö	Result	Kuvaus
1	Antimoni	Maaperä	mg/kg	9	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö
2	Arseeni	Maaperä	mg/kg	424	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö
3	Elohopea	Maaperä	mg/kg	43	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö
4	Kadmium	Maaperä	mg/kg	25	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö
5	Koboltti	Maaperä	mg/kg	590	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö
6	Kromi (3+)	Maaperä	mg/kg	3190	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö
7	Kupari	Maaperä	mg/kg	10000	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö, HUOM! SHPter > 10000 mg/kg
8	Lyijy	Maaperä	mg/kg	212	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö
9	Nikkeli	Maaperä	mg/kg	1190	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö
10	Sinkki	Maaperä	mg/kg	10000	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö, HUOM! SHPter > 10000 mg/kg
11	Vanadiini	Maaperä	mg/kg	436	PIMA-ohjeistus, terveysperusteinen suurin hyväksyttävä pitoisuus, tavanomainen maankäyttö

Talousveden terveysperusteiset viitearvot

Talousvesi(-)
Obs	Altiste	Matriisi	Yksikkö	Result	Kuvaus
1	Antimoni	Talousvesi	mg/l	0.005	STM 461/2000
2	Arseeni	Talousvesi	mg/l	0.01	STM 461/2000
3	Elohopea	Talousvesi	mg/l	0.001	STM 461/2000
4	Kadmium	Talousvesi	mg/l	0.005	STM 461/2000
5	Kromi (3+)	Talousvesi	mg/l	0.05	STM 461/2000
6	Kupari	Talousvesi	mg/l	2	STM 461/2000
7	Lyijy	Talousvesi	mg/l	0.01	STM 461/2000
8	Nikkeli	Talousvesi	mg/l	0.02	STM 461/2000

Haitta-aineen turvallisen päivittäisen saannin viitearvo

Kokonaissaanti(-)
Obs	Altiste	Reitti	Yksikkö	Result	Kuvaus
1	Antimoni	Kokonaissaanti	µg/kg/vrk	6	WHO
2	Arseeni	Kokonaissaanti	µg/kg/vrk	0.3	U.S.EPA, epäorgaaninen arseeni
3	Elohopea	Kokonaissaanti	µg/kg/vrk	0.1	U.S.EPA, metyyli-Hg
4	Kadmium	Kokonaissaanti	µg/kg/vrk	0.5	U.S.EPA
5	Koboltti	Kokonaissaanti	µg/kg/vrk	1.4	RIVM (Baars ym. 2001)
6	Kromi (3+)	Kokonaissaanti	µg/kg/vrk	5	RIVM (Baars ym. 2001), liukoiset yhdisteet
7	Kupari	Kokonaissaanti	µg/kg/vrk	140	RIVM (Baars ym. 2001)
8	Lyijy	Kokonaissaanti	µg/kg/vrk	1.8	WHO, RIVM (Baars ym. 2001), 3.6 + varmuuskerroin 2
9	Nikkeli	Kokonaissaanti	µg/kg/vrk	50	RIVM (Baars ym. 2001)
10	Sinkki	Kokonaissaanti	µg/kg/vrk	500	RIVM (Baars ym. 2001)
11	Vanadiini	Kokonaissaanti	µg/kg/vrk	9	U.S.EPA

Riippuvuudet

altiste
altistusaika
allergiat ja muut herkkyydet
suojautumistoimenpiteet

Laskenta

+ Näytä koodi - Piilota koodi

# Koodilla pitää olla nimi, koska sen tuottamia ovariableja kutsutaan muissa koodeissa.
# Alusta muuttujat on monikossa, koska tässä määritellään kaksi muuttujaa.

library(OpasnetUtils) # Haetaan perustoiminnallisuuspaketti

# Haetaan pitoisuusviitearvot. Laskenta tehdään formulassa, koska tarvitaan koodia kahden erillisen taulukon yhdistämiseen.

pitoisuusviitearvo <- new("ovariable", 
	name = "pitoisuusviitearvo",
	dependencies = data.frame(),	# Riippuvuudet jätetään tyhjäksi, koska kaikki tarvittava tieto on formulassa.
	formula = function(dependencies, ...) {
		ComputeDependencies(dependencies, ...)
		out <- rbind(	# Kaksi datataulua yhdistetään.
			tidy(opbase.data("Op_fi3373.maapera"), objname = "pitoisuusviitearvo"),
			tidy(opbase.data("Op_fi3373.talousvesi"), objname = "pitoisuusviitearvo")
		)
		return(out)
	}
)

oprint(pitoisuusviitearvo)	# Tulosta taulukko ovariablen tuloksesta

# Tee toinen muuttuja. Se voidaan määritellä helpommin, koska tuloksena on yksinkertaisesti datataulu.
## name on annettava, ja sen on oltava sama kuin olion nimi.
## ddata tarkoittaa dynaamista dataa eli dataa, joka kaivetaan suoraan Opasnet-tietokannasta annetulta sivulta.
## subset määrittelee, mistä sivun taulukosta data otetaan.
## getddata määrittelee, haetaanko data heti oliota luotaessa (oletus) vai vasta kun oliota käytetään (kuten tässä).

altistusviitearvo <- Ovariable(name= "altistusviitearvo", ddata = "Op_fi3373", subset = "Kokonaissaanti", getddata = FALSE)

oprint(altistusviitearvo)

# Tallennetaan molemmat ovariablet niin, että niitä voi käyttää osana malleja.
objects.store(altistusviitearvo, pitoisuusviitearvo)
cat("Ovariablet altistusviitearvo ja pitoisuusviitearvo tallennettu.\n")

Katso myös

**Minera-malli: Ohjeistusta kaivostoiminnan ympäristö- ja terveysriskien arviointiin.**
Osa linkeistä vie ohjeistuksiin eri vaikutusarvioinnin osien tekemisestä, osa taas **valmiisiin laskentamalleihin** (lihavoitu).
Kaivostoiminta	Kohdekohtaisen arvioinnin esimerkkisivu · Rikastus · Kaivosprosessit
Pölyn ja hiukkasten päästöt	Pöly (ohje) · Lähteet · Pintamaan poisto! · Tarvekivi ! · Louhinta ! · Murskaus · Lastaus ja pudotus · Kuljetuksen pakokaasupäästöt! · Kuljetuksen pölypäästöt! · Työkoneet · Hihnakuljetus · Energiantuotanto · Polttomoottorit! · Sähköntuotanto ! · Boilerit ! · Varastointi · Kaivannaisjäte · Sivukivi · Rikastushiekka
Muut päästöt	Haju · Kaasut · Typpi · Säteily! · Tärinä · Jätevesi · Varastoinnin vesipäästö · Mallinnusohjelmat · Rikastuskemikaalipäästöt · Melu
Pitoisuus ympäristössä	Pohjavesi · Pintavesi · Kulkeutuminen vedessä! · Sedimentit · Sedimentit (mittaukset) · Sedimentit (huokosvedet) · Maaperä! · Maaperän terveysriskinarvio
	Ihmiset	Ympäristö ja ekologia
Altistuminen	Altistumisen arviointi	Nisäkkäät ja linnut · Kasvit! · Maaselkärangattomat! · Ravinto!
Vaikutus	Terveysriskinarvioinnin rakenne · Riskinarviointiohjeet: · Pohjavesi · Pintavesi · Pöly · Kaasumaiset ilman epäpuhtaudet · Maaperä · Tärinä · Haju · Säteily! · Maaperän terveysriski · Kaasut · Melu · Pienhiukkasvaikutukset! · Terveysriskin kuvaus	Vesistöt · Maaperä · Sedimentti · Ekologinen riskinarviointi: · Ekologisten vaikutusten arviointi · Kohdekohtaisen mallin vaiheet · Alustus · Kohdetutkimukset · Vaikutusten arviointi · Mittauksiin perustuva arvio · Luonnehdinta
Integroitu riskinarvio	Integroitu riskinarvio · Viitearvoja

**Muita Minera-projektin tuotoksia**
Minera-mallin sovelluksia	· Luikonlahden tapaustutkimus · Luikonlahden sienitutkimusraportti
Muut	· Metallimalmikaivostoiminnan parhaat ympäristökäytännöt · Minera-hanke · MINERA Loppuseminaari · Kauppila T, Makkonen S, Komulainen H, Tuomisto JT: Metallikaivosalueiden ympäristöriskinarviointiosaamisen kehittäminen: MINERA-hankkeen loppuraportti. · Lehdistötiedote 15.4.2013 · Kohdekohtainen esimerkki · Lyhenteet ja määritelmät · Loppuraportti kokonaismalli · Kaivostoiminnan ympäristöterveysriskien arviointi (suojattu sivu) · Mallinnusohjelmat päästöjen arvioinnissa · Viitearvot · Talvivaaran kaivoksen terveysvaikutukset · Loppuraportti · Raportti · Yaran tapaustutkimus
Muita kaivostoimintaan liittyvää	· Vesijalanjälki · Hyvä kaivos pohjoisessa · Yhteiskuntatieteellinen kaivostutkimus Itä-Suomen yliopistossa · Teemasivu:Kaivostoiminnan vaikutusarviointi

Avainsanat

Ympäristöterveys, viitearvot, HTP, raja-arvo

Viitteet

--#: Viitteet pitäisi kirjoittaa kunnolla auki. --Jouni Tuomisto 26. helmikuuta 2013 kello 22.54 (EET)

Aiheeseen liittyviä tiedostoja

@@ Rivi 31: / Rivi 31: @@
-# Määritellään funktio, jonka avulla voi piirtää kuvia.
+ograph <- function( # Määritellään yleisfunktio peruskuvaajan piirtämiseen.
-#kuva <- function(ovariable, x, y = paste(ovariable@name, "Result", sep = ""), type = geom_bar(), ...) {
+	ovariable,
-#out <- ggplot(ovariable@output, aes(x = x, y = get(y), fill = get(fill))) + # Määritellään kuvan sarakkeet
+	x,
-#	type + # Tolppadiagrammi
+	y = paste(ovariable@name, "Result", sep = ""),
-#	theme_grey(base_size=24) +	# Fontin kokoa suurennetaan
+	type = geom_boxplot(),
-#	labs(
+	fill = NA, ...
-#		title	= ovariable@name,
+) {
-#		y 	= paste(unique(ovariable@output[["Yksikkö"]]), sep = "", collapse = ", ")
+	out <- ggplot(ovariable@output, aes_string(x = x, y = y, fill = fill)) + # Määritellään kuvan sarakkeet
-#	) +
+		type +
-#	theme(axis.text.x = element_text(angle = 90, hjust = 1)) # X-akselin tekstit käännetään niin että mahtuvat
+		theme_grey(base_size=24) +	# Fontin kokoa suurennetaan
-#return(out)
+		labs(
-#}
+			title	= ovariable@name,
+			y = paste(unique(ovariable@output[[paste(ovariable@name, "Yksikkö", sep = "")]]), sep = "", collapse = ", ")
+		) +
+		theme(axis.text.x = element_text(angle = 90, hjust = 1)) # X-akselin tekstit käännetään niin että mahtuvat
+	return(out)
+}
-#kuva(pitoisuusviitearvo, x = Altiste, fill = "Matriisi")
+ograph(pitoisuusviitearvo, x = "Altiste", fill = "Matriisi", type = geom_bar())
-ggplot(altistusviitearvo@output, aes(x = Altiste, y = altistusviitearvoResult, fill = Reitti)) + # Määritellään kuvan sarakkeet
+ograph(altistusviitearvo, x = "Altiste", fill = "Reitti", type = geom_bar())
-	geom_bar() + # Tolppadiagrammi
-	theme_grey(base_size=24) +	# Fontin kokoa suurennetaan
-	labs(
-		title	= pitoisuusviitearvo@name,
-		y 	= paste(unique(pitoisuusviitearvo@output$pitoisuusviitearvoYksikkö), sep = ", ")
-	) +
-	theme(axis.text.x = element_text(angle = 90, hjust = 1)) # X-akselin tekstit käännetään niin että mahtuvat
 </rcode>