Ero sivun ”Järvisedimenttien metallipitoisuudet” versioiden välillä

Versio 19. joulukuuta 2012 kello 09.07

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_fi2953
Moderaattori:Marjo (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2953}}

Kysymys

Miten lasketaan suomalaisen järven sedimentin metallipitoisuus?

Vastaus

1) Lasketaan järven sedimentin metallipitoisuus perustuen ympäröivän, ympyrän säteen määräämän alueen järvien keskipitoisuuteen.

2) Lasketaan järven sedimentin metallipitoisuus läheisen/sopivan suuren järven pitoisuuden perusteella.

--#: Koodia voisi siistiä seuraavasti:

joka järvi omalle rivilleen, niin on helpompi lukea (sieltä puuttuu muutamia lainausmerkkejä, mikä kaataa koodin jos valitsee sellaisen järven.
Koodista voisi tehdä ovariablen nimeltä sediment.concentration (ei conc), joka ottaa syötteeksi tiedot Järvi, metalli, coeff.pH ja coeff.landuse (pitäisi olla johdonmukaisia kielen kanssa).
Data kaivetaan kannasta formulan sisällä.
Jos syötteet coeff.pH ja coeff.landuse voidaan johtaa jostain, sen johtamisen voisi tehdä käyttämällä syötteenä pH ja landuse ja laskemalla kertoimet.

--Jouni Tuomisto 18. joulukuuta 2012 kello 17.09 (EET)

Perustelut

Datan rakennetta (ei sisältöä) parannettu tällä koodilla: [5].

Katso myös

Perustuu GTK:n dataan. GTK.

**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

Viitteet

Lähdeluettelo tulostuu tänne automaattisesti kun viittauksissa käytetään <ref></ref> -tagia.
Lähteet voi myös lisätä halutessaan manuaalisesti.

@@ Rivi 18: / Rivi 18: @@
 name:säde|description:Määritä säde (km; järvet säteen määräämän ympyränmuotoisen alueen sisäpuolella huomioidaan)|default:100
 ">
 library(OpasnetUtils)
 library(xtable)
 library(ggplot2)
-library(reshape)
 data <- opbase.data("Op_en5462")
-head(data)
+data$Easting  <- as.numeric(as.character(data$Easting))
-data <- tidy(data, direction = "long")
+data$Northing <- as.numeric(as.character(data$Northing))
-head(data)
-#data$Result <- as.numeric(data$Result) # This replaces all as.numeric rows below.
-data <- reshape(data, timevar = "Observation", idvar = "ID", direction = "wide")
-colnames(data) <- gsub("Result.", "", colnames(data))
-head(data)
-data <- melt(data, measure.vars = c("Co", "Cr", "Cu", "Fe", "Mn", "Ni", "Pb", "S", "V", "Zn"))
-head(data)
-colnames(data)[colnames(data) == "variable"] <- "Metal"
-colnames(data)[colnames(data) == "value"] <- "Result"
-colnames(data)[colnames(data) == "Järvi"] <- "Lake.name"
-colnames(data)[colnames(data) == "Kunta"] <- "Municipality"
-head(data)
 out <- data
-#data$distance <- sqrt((as.numeric(data$Easting) - easting)^2 + (as.numeric(data$Northing) - northing)^2)
+out$Distance <- sqrt((out$Easting - easting)^2 + (out$Northing - northing)^2)
-out$distance <- data$distance <= säde*1000
+out$Distance <- out$Distance <= säde*1000
-out <- as.data.frame(as.table(tapply(out$value, out[c("variable", "distance")], mean)))
-colnames(out) <- gsub("variable", "metalli", colnames(out))
+out2 <- as.data.frame(as.table(tapply(out$Result, out[c("Metal", "Distance")], mean)))
-colnames(out) <- gsub("Freq", "pitoisuus", colnames(out))
+colnames(out2) <- gsub("Freq", "Pitoisuus", colnames(out2))
 cat("Metallipitoisuuden keskiarvo ", säde, " km säteellä pisteestä ", easting, "E, ", northing, " N.\n")
-print(xtable(out[out$distance == TRUE, ]), type = 'html')
+print(xtable(out2[out2$Distance == TRUE, ]), type = 'html')
 cat("Pitoisuudet metallille", metalli, ".\n")
-concentration <- data[data$distance <= säde*1000 & data$variable == metalli, "value"]
-plot(concentration) # simple plot about concentrations.
-qplot(Easting, Northing, data = data[data$variable == metalli, ], size = value) # Concentrations on a "map".
-</rcode>
-===Update data structure===
-<rcode graphics="1"
-variables="
-name:metalli|description:Valitse metallit|type:checkbox|options:'Co';Co;'Cr';Cr;'Cu';Cu;'Fe';Fe;'Mn';Mn;'Ni';Ni;'Pb';Pb;'S';S;'V';V;'Zn';Zn|default:'Co'|
-name:northing|description:Northing-koordinaatti (KKJ)|default:6995650|
-name:easting|description:Easting-koordinaatti (KKJ)|default:3653220|
-name:säde|description:Määritä säde (km; järvet säteen määräämän ympyränmuotoisen alueen sisäpuolella huomioidaan)|default:100
-">
-library(OpasnetUtils)
-library(xtable)
-library(ggplot2)
-library(reshape)
-data <- opbase.data("Op_en5462")
+ggplot(out[out$Metal == metalli, ], aes(x = Easting, y = Northing, size = Result)) +geom_point() # Concentrations on a "map".
-head(data)
-data <- tidy(data, direction = "long")
-head(data)
-#data$Result <- as.numeric(data$Result) # This replaces all as.numeric rows below.
-data <- reshape(data, timevar = "Observation", idvar = "ID", direction = "wide")
-colnames(data) <- gsub("Result.", "", colnames(data))
-head(data)
-data <- melt(data, measure.vars = c("Co", "Cr", "Cu", "Fe", "Mn", "Ni", "Pb", "S", "V", "Zn"))
-head(data)
-colnames(data)[colnames(data) == "variable"] <- "Metal"
-colnames(data)[colnames(data) == "value"] <- "Result"
-colnames(data)[colnames(data) == "Järvi"] <- "Lake.name"
-colnames(data)[colnames(data) == "Kunta"] <- "Municipality"
-head(data)
-opbase.upload(data, ident = "Op_en5462", name = "Metal concentrations in lake sediments", obj_type = "variable",
-act_type = "replace", language = "eng", unit = "mg/kg d.w.", who = wiki_username, rescol = "Result")
-#, who = NULL,
-#rescol = NULL, chunk_size = NULL, verbose = FALSE, username = NULL,
-#password = NULL)
 </rcode>
@@ Rivi 104: / Rivi 53: @@
 library(xtable)
-data <- tidy(opbase.data("Op_en5462"), objname = "conc", direction = "long")
+data <- tidy(opbase.data("Op_en5462"), objname = "conc")
-temp <- data[data$Observation == "Järvi", ]
+data <- data[data$Metal %in% metalli & data$Lake.name == Järvi, ]
-temp <- temp[temp$concResult == Järvi, "ID"]
-data <- data[data$ID == temp & data$Observation %in% metalli, ]
 conc <- new("ovariable",
 	name = "conc",
@@ Rivi 130: / Rivi 76: @@
 ==Perustelut==
+Datan rakennetta (ei sisältöä) parannettu tällä koodilla: [http://fi.opasnet.org/fi_wiki/index.php?title=J%C3%A4rvisedimenttien_metallipitoisuudet&oldid=16253#Update_data_structure].
 == Katso myös ==