Järvisedimenttien metallipitoisuudet

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.

Valitse metallit: Co Cr Cu Fe Mn Ni Pb S V Zn Northing-koordinaatti (KKJ): Easting-koordinaatti (KKJ): Määritä säde (km; järvet säteen määräämän ympyränmuotoisen alueen sisäpuolella huomioidaan): + Näytä koodi- Piilota koodi library(OpasnetBaseUtils) library(xtable) library(ggplot2) library(reshape) data <- (op_baseGetData("opasnet_base", "Op_en5462")) data <- tidy(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)) data$distance <- sqrt((as.numeric(data$Easting) - easting)^2 + (as.numeric(data$Northing) - northing)^2) data <- melt(data, measure.vars = c("Co", "Cr", "Cu", "Fe", "Mn", "Ni", "Pb", "S", "V", "Zn")) out <- data out$distance <- data$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)) colnames(out) <- gsub("Freq", "pitoisuus", colnames(out)) cat("Metallipitoisuuden keskiarvo ", säde, " km säteellä pisteestä ", easting, "E, ", northing, " N.\n") print(xtable(out[out$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".

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

Valitse metallit: Co Cr Cu Fe Mn Ni Pb S V Zn Valitse järvi: Pielinen, Lieksa Oulujärvi, Vaala Kallavesi, Kuopio Suvasvesi, Vehmersalmi Ylikitka, Kuusamo Nilakka, Keitele Koitere, Ilomantsi Kivijärvi, Kivijärvi Viinijärvi, Polvijärvi Keurusselkä, Keuruu Ontojärvi, Kuhmo Vuohijärvi, Vaala Kukkia, Luopioinen Kostonjärvi, Taivalkoski Sääksjärvi, Kokemäki Pieksänjärvi, Pieksämäki Pihlajavesi, Keuruu Keyritty, Rautavaara Nerkoonjärvi, Lapinlahti Pyhäjärvi, Artjärvi Uuranjärvi, Multia Sääjärvi, Janakkala Haukijärvi, Maaninka Kinnasjärvi, Tuupovaara Tervajärvi, Luumäki Kalliojärvi, Juuka Pyhäluoma, Pieksämäki Puntasjärvi, Kuru Ylimmäinen, Jaala Hanhijärvi, Jämsänkoski Ruuhilampi, Virtasalmi Ala-Saimaa, Taipalsaari Pihlajavesi, Puumala Orivesi, Kitee Puulavesi, Hirvensalmi Höytiäinen, Kontiolahti Pyhäjärvi, Säkylä Kiantajärvi, Suomussalmi Lappajärvi, Lappajärvi Pyhäjärvi, Pyhäsalmi Vesijärvi, Asikkala Unnukka, Leppävirta Kolimajärvi, Viitasaari Lestijärvi, Lestijärvi Muuratjärvi, Muurame Karijärvi, Jaala Kolkonjärvi, Rantasalmi Ätäskö, Kitee Nurmijärvi, Rautjärvi Kevätön, Siilinjärvi Kotajärvi, Lemi Ihalanjärvi, Ruokolahti Vahermanjärvi, Nummi-Pusula Johdasjärvi, Jaala Saarijärvi, Saarijärvi Muntsurinjärvi, Lieksa Kypärijärvi, Vihti Suuren järven nimi: pH:sta johtuva kerroin: Ohje: http://intra.eracnet.fi/main/index.php/Minera:Pintavesi: Maankäytöstä johtuva kerroin: Ohje: http://intra.eracnet.fi/main/index.php/Minera:Pintavesi: + Näytä koodi- Piilota koodi library(OpasnetBaseUtils) n <- 1 data <- tidy(op_baseGetData("opasnet_base", "Op_en5462")) temp <- data[data$Observation == "Järvi", ] temp <- temp[temp$Result == name, "ID"] data <- data[data$ID == temp & data$Observation %in% metalli, ] conc <- make.ovariable(data) conc <- (conc * coeff.pH + conc * coeff.landuse)/2 conc@sample colnames(conc@sample) <- gsub("Observation", "Metalli", colnames(conc@sample)) colnames(conc@sample) <- gsub("Result", "Pitoisuus", colnames(conc@sample)) library(xtable) print(xtable(conc@sample), type = 'html')

Katso myös

Perustuu GTK:n dataan. GTK.

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.