Ero sivun ”Ympäristöterveysindikaattori” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
Rivi 87: Rivi 87:
* Kouluterveyskysely https://sampo.thl.fi/pivot/prod/fi/ktk/ktk1/fact_ktk_ktk1/199464
* Kouluterveyskysely https://sampo.thl.fi/pivot/prod/fi/ktk/ktk1/fact_ktk_ktk1/199464


<rcode label="ECD Hyte-indikaattoreista" graphics=1>
<rcode label="Piirrä näkemyskaavioita" graphics=1>
# Tämä on koodi Op_fi5810/ sivulla [[Ympäristöterveysindikaattori]]
# Tämä on koodi Op_fi5810/ sivulla [[Ympäristöterveysindikaattori]]
library(OpasnetUtils)
library(OpasnetUtils)
Rivi 115: Rivi 115:
     sep=",",header=TRUE,stringsAsFactors=FALSE
     sep=",",header=TRUE,stringsAsFactors=FALSE
   )
   )
  temp$Oldid = paste(meta$Id[i],1:nrow(temp),sep=".")
#  for(j in 1:ncol(temp)) temp[[j]] <- as.character(temp[[j]])


   # Convert structural names to English
   # Convert structural names to English
   colnames(temp)[colnames(temp)=="Lyhenne"] <- "label" # Columns defined by DiagrammeR start with small letter
   colnames(temp)[colnames(temp)=="Lyhenne"] <- "label" # Columns defined by DiagrammeR start with small letter
   colnames(temp)[colnames(temp)=="Luokka"] <- "type"
   colnames(temp)[colnames(temp)=="Luokka"] <- "type"
   colnames(temp)[colnames(temp)=="Asia"] <- "Item"
   colnames(temp)[colnames(temp)%in% c("Toimenpide","Nimi","Asia")] <- "Item"
   colnames(temp)[colnames(temp) %in% c("Predikaatti","Relaatio")] <- "Relation"
   colnames(temp)[colnames(temp) %in% c("Predikaatti","Relaatio")] <- "Relation"
   colnames(temp)[colnames(temp) %in% c("Objekti","Kohde")] <- "Object"
   colnames(temp)[colnames(temp) %in% c("Objekti","Kohde")] <- "Object"
   colnames(temp)[colnames(temp)=="Kuvaus"] <- "Description"
   colnames(temp)[colnames(temp) %in% c("Kuvaus","Lisatietoa","Kommentteja")] <- "Description"
  colnames(temp)[colnames(temp) %in% c("Aihe1","Tehtavakokonaisuus")] <- "Teema"
  colnames(temp)[colnames(temp) %in% c("Tunnistenumero")] <- "Nro"
   if(!"label" %in% colnames(temp)) temp$label <- NA
   if(!"label" %in% colnames(temp)) temp$label <- NA
   temp$label <- ifelse(is.na(temp$label), substr(temp$Item,1,50), temp$label)
   temp$label <- ifelse(is.na(temp$label), substr(temp$Item,1,50), temp$label)
  temp$Oldid = paste(meta$Id[i],{if("Nro" %in% colnames(temp)) temp$Nro else 1:nrow(temp)},sep=".")
   out[[i]] <- temp
   out[[i]] <- temp
}
}
Rivi 150: Rivi 151:
     Oldid = d3$Oldid,
     Oldid = d3$Oldid,
     type = paste(d3$Tehtavakokonaisuus, "indikaattori",sep="-"),
     type = paste(d3$Tehtavakokonaisuus, "indikaattori",sep="-"),
     Item = d3$Nimi,
     Item = d3$Item,
     Relation = "ulottuvuus",
     Relation = "ulottuvuus",
     Object = d3$Ulottuvuus,
     Object = d3$Ulottuvuus,
Rivi 163: Rivi 164:
   ),
   ),
   data.frame(
   data.frame(
     Item = d3$Nimi,
     Item = d3$Item,
     Relation = "osiotyyppi",
     Relation = "osiotyyppi",
     Object = d3$Osiotyyppi,
     Object = d3$Osiotyyppi,
Rivi 169: Rivi 170:
   )),
   )),
   data.frame(
   data.frame(
     Item = d3$Nimi,
     Item = d3$Item,
     Relation = "discussed in",
     Relation = "discussed in",
     Object = d3$Tietolahde,
     Object = d3$Tietolahde,
Rivi 175: Rivi 176:
   )),
   )),
   data.frame(
   data.frame(
     Item = d3$Nimi,
     Item = d3$Item,
     Relation = "JHS-luokka",
     Relation = "JHS-luokka",
     Object = d3$JHS.luokka,
     Object = d3$JHS.luokka,
Rivi 262: Rivi 263:
     Oldid=paste0("HNH2035/tp.", d1$Nro),
     Oldid=paste0("HNH2035/tp.", d1$Nro),
     type="HNH2035-toimenpide",
     type="HNH2035-toimenpide",
     Item=d1$Toimenpide,
     Item=d1$Item,
     label=substr(d1$Toimenpide,1,30),
     label=substr(d1$Item,1,30),
     Relation="teema",
     Relation="teema",
     Object=d1$Teema,
     Object=d1$Teema,
Rivi 269: Rivi 270:
   ),
   ),
   data.frame(
   data.frame(
     Item=temp$Toimenpide,
     Item=temp$Item,
     Relation="vastuullisena",
     Relation="vastuullisena",
     Object=temp$Vastuu
     Object=temp$Vastuu

Versio 8. heinäkuuta 2018 kello 14.04




Ympäristöterveysindikaattori on elinympäristön tiettyä ominaisuutta mittaava asia, joka kertoo ympäristön terveellisyydestä ihmiselle.

Kysymys

Mitkä ovat hyödyllisiä indikaattoreita Suomen ympäristöterveystilanteen seuraamiseksi ja parantamiseksi?

Vastaus

Ympäristötervyden keskeiset tekijät, toimenpiteet ja mittarit.

Nämä indikaattorit ovat olemassa tai suunnitteilla:

  • Pienhiukkaspitoisuuden väestöpainotettu vuosikeskiarvo (Yhteistyötilat)
  • Sisätilaongelmista koulussa raportoivat koululaiset
  • Vesivälitteisten epidemioiden lukumäärät ja sairastuneiden lukumäärät
  • Elintarvikevälitteisten epidemioiden lukumäärät ja sairastuneiden lukumäärät

Perustelut

Data

Näkemysverkkojen tietotauluja

Data on muodostettu koodilla:

+ Näytä koodi

Työlista

  • Tee Google sheet, jonne listataan kaikki Sitran 100 fiksua tekoa siten, että sarakkeisiin tulevat
    • Nimi (arjen teon nimi)
    • Suuruus (onko vaikutus pieni, keskisuuri vai suuri)
    • Aihepiiri (liittyykö teko asumiseen, matkustamiseen jne)
    • URL sivulle, jossa teko esitellään
  • Tutustu uuteen kuvaukseen Helsingin ilmastopolitiikasta:
  • Tutustu kuvaukseet ruuhkamaksuista (Decision analysis and risk management 2017 -kurssilla tehty)
  • Tutustu sanastoon sivulla op_en:Structure of shared understanding ja kommentoi kummallisuuksia ja epäselvyyksiä.
  • Tutustu kaavioiden muotoiluihin sivulla op_en:Extended causal diagram ja kommentoi kummallisuuksia ja epäselvyyksiä. Kaavioiden toteutus R-paketilla DiagrammeR nettisivu, dokumentaatio.
  • Tutustu ympäristöterveyden indikaattoreihin sivulla Ympäristöterveys
  • Käytä näitä keskustelumuotoiluja kun haluat kommentoida sivun sisältöä Opasnetissä:
    • Kommentti:
      {{comment|# (tarvittaessa argumentin numero)|Kommentoiva argumentti.|--~~~~}}
    • Puolusta:
      {{defend|# (tarvittaessa argumentin numero)|Puolustava argumentti.|--~~~~}}
    • Kommentti:
      {{attack|# (tarvittaessa argumentin numero)|Hyökkäävä argumentti.|--~~~~}}

Syykaaviot

+ Näytä koodi

Sisäilma kouluissa

Kouluterveyskysely tuottaa jotakin tietoa myös sisäilmasta, oppimisympäristöstä yleensä ja oppilaiden raportoimista yleisistä oireista. Katso lisätietoa näistä linkeistä:


+ Näytä koodi

Indikaattorien lataus Sotkanettiin

+ Näytä koodi

Sotearvioinnin koodi liittyen ympäristöterveyteen

+ Näytä koodi

Katso myös