Uimavesien laatu Suomessa

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi5864
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa Näytä tulokset

Kysymys

Millainen on uimavesien laatu suomalaisilla uimarannoilla? Tiedot näytetään EU-direktiivin mukaisesti.

Vastaus

Malliajo EEA:n datasta 23.10.2018.

Perustelut

Data

EU-tason tiedot löytyvät EEA:n portaalista. Varsinainen uimavesidata on täällä.

Aineiston historiassa pitää ottaa huomioon muutama seikka. Vuoden 1995-2007 tulokset perustuivat vanhaan uimavesidirektiiviin ja sen vaatimuksiin eli sen ajan tulokset ovat toisiinsa nähden vertailukelpoisia. Vuonna 2008-2010 elettiin siirtymäaikaa, kun valvonta toteutettiin uuden uimavesidirektiivin mukaan. Koska tuloksia ei ollut vielä uuden direktiivin valvonnan mukaan riittävän monelta vuodelta saatavilla, tuloksia verrattiin vanhaan direktiiviin. Ensimmäiset uuden direktiivin mukaiset uimavesiluokat valmistuivat vasta vuonna 2011, kun saatavilla oli neljän vuoden seurantatiedot eli tuloksia oli saatavilla 2008-2011, jonka perusteella uimavesiluokka määräytyi. Ja tämän jälkeen on edetty vastaavalla tavalla eli aina vanhimman vuoden tulokset jätetty pois arvioinnista ja tilalle otettu viimeisimmän vuoden tulokset.

Metadata for status of bathing water

Attribute name	Description
cc	International country code
BWID	Bathing water identification
SeaRegion	Sea region name
Region	Region name reported by Member State under Directive 76/160/EEC
Province	Province name reported by Member State under Directive 76/160/EEC or NUTS3 name
Commune	Commune name reported by Member State under Directive 76/160/EEC
BWName	Bathing water name reported by Member State
BWaterCat	Category of water sampled (Directive 2006/7/EC) C - coastal water R - river L - lake T - transitional water
Longitude_BW	International geographical co-ordinates in decimal degrees format
Latitude_BW
y1990 ... y2017	Status of bathing water for year 1990 - 2017 (old or transition period): 'empty field' - no data available CG - compliant with the mandatory and the guide values of the Directive B - banned or closed NF - insufficiently sampled NC - not compliant with the mandatory values of the Directive CI - compliant with the mandatory values of the Directive NS - not sampled Status of bathing water for year 1990 - 2017 (new): excellent quality good quality sufficient quality poor quality closed permanently closed (no value) insufficiently sampled new - not yet classification possible changes - not yet classification possible after the changes

The description of all attribute fields of bathing waters is given in Data Dictionaries 'WISE - Bathing Water Quality Reporting under Directive 76/160/EEC' and 'WISE - Bathing Water Quality Reporting under Directive 2006/7/EC' at: [1]

Laskenta

• Ajo uimarannoittain ja kunnittain 23.10.2018 [2]

+ Näytä koodi- Piilota koodi # Bathing water data from Europe # Map application at https://www.eea.europa.eu/themes/water/interactive/bathing/state-of-bathing-waters # Data management: # 1) Download EEA data from https://www.eea.europa.eu/data-and-maps/data/bathing-water-directive-status-of-bathing-water-10/bathing-water-directive-status/excel-format-zip/at_download/file # 2) Unzip and save the Finnish data as csv. # 3) Upload data to OpasnetBase with name EEA_FI_BW on page Op_fi5864 [[Uimavesien laatu Suomessa]] # 4) Use the code below to produce good indicator results. # Permalink to this version: https://www.eea.europa.eu/ds_resolveuid/93aa09680cf3443b9ce57bc46253b4de # Permalink to latest version https://www.eea.europa.eu/ds_resolveuid/DAT-17-en library(OpasnetUtils) library(reshape2) library(ggplot2) dat <- opbase.data("Op_fi5864", subset="EEA_FI_BW") colnames(dat)[colnames(dat)=="Result"] <- "Description" dat$Longitude_BW <- as.numeric(gsub(",","\\.", as.character(dat$Longitude_BW))) dat$Latitude_BW <- as.numeric(gsub(",","\\.", as.character(dat$Latitude_BW))) levels(dat$BWaterCat)[levels(dat$BWaterCat)=="R "] <- "R" dat <- melt(dat, value.name = "Result", variable.name="Vuosi", measure.vars = paste0("y", 1990:2017), na.rm=TRUE) dat <- dat[!(is.na(dat$Result) | dat$Result==""),] levels(dat$Vuosi) <- substr(levels(dat$Vuosi),2,5) dat$Vuosi <- as.numeric(as.character(dat$Vuosi)) dat$Result <- as.factor(dat$Result) # levels(dat$Result) #[1] "B" "CG" "changes" "CI" "excellent" #[6] "good" "insufficiently sampled" "NC" "new" "NF" #[11] "not enough samples" "NS" "poor" "sufficient" levels(dat$Result)[levels(dat$Result) %in% c("B", "changes", "insufficiently sampled","new", "NF", "not enough samples", "NS")] <- "other" levels(dat$Result)[levels(dat$Result)=="CG"] <- "good" # Old 'CG compliant' is approximately same as 'good' levels(dat$Result)[levels(dat$Result)=="CI"] <- "sufficient" # Old 'CI compliant' is approximately same as 'satisfactory' levels(dat$Result)[levels(dat$Result)=="NC"] <- "poor" # Old 'non-compliant' is approximately same as 'poor' dat$Result <- factor( dat$Result, levels = c("excellent", "good", "sufficient", "poor", "other"), ordered=TRUE ) levels(dat$Result) <- c("erinomainen", "hyvä", "riittävä", "huono", "muu") # Translate to Finnish ggplot(dat[dat$Vuosi %in% c(1995,2005, 2012, 2017),], aes(x=Longitude_BW, y=Latitude_BW, colour=Result))+geom_point()+ facet_wrap(~Vuosi)+theme_gray(base_size=24)+ scale_colour_manual(values=c("green","yellow","orange","red","gray"))+ labs( title="Uimavesien laatu Suomessa uimarannoittain", subtitle="(Luokittelu muuttui 2008-2010)", y="Leveyspiiri", x="Pituuspiiri" ) tmp <- gsub("OE", "Ö", gsub("AE", "Ä", levels(dat$Commune))) tmp <- paste0(substr(tmp,1,1), tolower(substr(tmp, 2, 200))) levels(dat$Commune) <- tmp tmp2 <- ifelse(dat$Result=="muu", NA, as.numeric(dat$Result)) tmp2 <- aggregate( cbind(Result=tmp2,dat[c("Longitude_BW","Latitude_BW")]), by = dat[c("Commune","Vuosi")], FUN=function(x) mean(x, na.rm=TRUE) ) ggplot(tmp2[tmp2$Vuosi %in% c(1995,2005, 2012, 2017),], aes(x=Longitude_BW, y=Latitude_BW, colour=Result))+geom_point()+ facet_wrap(~Vuosi)+theme_gray(base_size=24)+ scale_color_gradient(low="green",high="red")+ labs( title="Uimavesien laatu Suomessa kunnittain", subtitle="1: erinomainen, 4: huono (Luokittelu muuttui 2008-2010)", y="Leveyspiiri", x="Pituuspiiri" )