Ympäristöterveysindikaattori

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

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

Perustelut

Ohje indikaattorin julkaisemiseksi Sotkanetissä
Ohje datan viemisestä Sotkanettiin
THL:n tietotuotannon käsikirja
Ympäristöterveyden indikaattorihanke (STM:n maksama hanke toukokuu-lokakuu 2018)

Syykaavio

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)

objects.latest("Op_en3861",code_name="ecd_create")

## Ehdotus sosiaali- ja terveyspalveluiden uudeksi kansalliseksi mittaristoksi VN-TEAS 15.3.2017 http://tietokayttoon.fi/julkaisu?pubid=18701
## http://alueuudistus.fi/tietojohtaminen
## KUVA-mittaristo 23.4.2018 http://alueuudistus.fi/documents/1477425/4439893/Sote-KUVA-mittaristoluonnos+23.4.+2018.xlsx/3ffc2fce-04c9-4c96-a21d-fb217310dbd5
## Kuva-indikaattorit drivessä https://docs.google.com/spreadsheets/d/1OJntWc-ivrCDi9RkCAyWdggA3VCm-BM98rp6H5u3diI/edit#gid=0
## Hyte-indikaattorit drivessä https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=0
## Tietoikkuna https://proto.thl.fi/tietoikkuna/#/chart?indicatorId=3775&regionId=953
## Sotkanet https://www.sotkanet.fi/sotkanet/fi/metadata/indicators/3775
## Kouluterveyskysely https://sampo.thl.fi/pivot/prod/fi/ktk/ktk1/fact_ktk_ktk1/199464

sotkanet <- "http://www.sotkanet.fi/sotkanet/fi/metadata/indicators/"
kouluterveyskysely <- "https://sampo.thl.fi/pivot/prod/fi/ktk/ktk1/summary_perustulokset?alue_0=87869&mittarit_0=200138&mittarit_1=187196&mittarit_2=199373&vuosi_2017_0=v2017"
kouluterveyskysely <- "https://sampo.thl.fi/pivot/prod/fi/ktk/ktk1/fact_ktk_ktk1?row=measure-200346.199405.199681.199445.199678.199701.199935.200120.199469.199308.199973.200279.200316.199604.&column=time-199465&column=stage_of_stady-161293.161123.161219.#" # Keskeiset ympäristöterveyden oire- ja olosuhdeindikaattorit eri kouluasteilla
tietoikkuna <- "https://proto.thl.fi/tietoikkuna/#/chart?indicatorId="
# Sotkanet.ID = tietoikkuna.indicatorID

d1 <- html_table(read_html("https://yhteistyotilat.fi/wiki08/x/1oGxAg"))[[5]]
for (i in 1:(ncol(d1) - 1)) {
  for (j in 2:nrow(d1)) {
    if (d1[j, i] == "") d1[j, i] <- d1[j - 1, i]
  }
}
for(i in ncol(d1)) d1[[i]] <- as.character(d1[[i]])

d2 <- html_table(read_html("https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=0"))[[1]]
d2 <- d2[10:104, 1:17]

colnames(d2) <- c(
  "Id",
  "AHVK", # Alueellinen hyvinvointikertomus
  "Asia",
  "Tehtäväkokonaisuus",
  "Ulottuvuus",
  "Osiotyyppi",
  "Tietolähde",
  "Kuvaid",
  "Sotkanetid",
  "JHS",
  "Perustelut",
  "Taso",
  "Tiheys",
  "Viive",
  "Velvoite",
  "Huom",
  "Viite"
)

for(i in ncol(d2)) d2[[i]] <- as.character(d2[[i]])

d3 <- rbind(
  data.frame( # Tämä osa voidaan jättää huomiotta sitten, kun JHS-luokka-sarake on täytetty.
    Luokka = "Hyte-indikaattori",
    Asia = d2$Asia,
    Predikaatti = "tehtäväkokonaisuus",
    Objekti = d2$Tehtäväkokonaisuus,
    URL = ifelse(d2$Sotkanetid=="e", NA, paste(sotkanet, substr(d2$Sotkanetid,1,4), sep="")),
    Kuvaus = d2$Perustelut
  ),
#  data.frame( # Now only 2018 indiactors used
#    Luokka = "Hyte-indikaattori",
#    Asia = d2$Asia,
#    Predikaatti = "on voimassa",
#    Objekti = as.character(d2$Vuosi),
#    URL = ifelse(d2$Sotkanetid=="e", NA, paste(sotkanet, d2$Sotkanetid, sep="")),
#    Kuvaus = d2$Perustelut
#  ),
  data.frame(
    Luokka = NA,
    Asia = d2$Asia,
    Predikaatti = "on osana",
    Objekti = ifelse(d2$AHVK=="x", "Alueellinen hyvinvointikertomus", NA),
    URL = NA,
    Kuvaus = d2$Perustelut
  ),
  data.frame(
    Luokka = NA,
    Asia = d2$Asia,
    Predikaatti = "ulottuvuus",
    Objekti = d2$Ulottuvuus,
    URL = NA,
    Kuvaus = d2$Perustelut
  ),
  data.frame(
    Luokka = NA,
    Asia = d2$Asia,
    Predikaatti = "osiotyyppi",
    Objekti = d2$Osiotyyppi,
    URL = NA,
    Kuvaus = d2$Perustelut
  ),
  data.frame(
    Luokka = NA,
    Asia = d2$Asia,
    Predikaatti = "discussed in",
    Objekti = d2$Tietolähde,
    URL = NA,
    Kuvaus = d2$Perustelut
  ),
  data.frame(
    Luokka = NA,
    Asia = d2$Asia,
    Predikaatti = "JHS-luokka",
    Objekti = tolower(d2$JHS),
    URL = NA,
    Kuvaus = d2$Perustelut
  )
)

d3$Lyhenne <- substr(d3$Asia,1,20)
d3 <- rbind(cbind(d1, URL=NA), d3)

gr <- ecd_create(NA, removes=NULL,d3,spliz=c("Luokka"))

export_graph(gr, "test7.png")
render_graph(gr)
gr2 <- select_nodes_in_neighborhood(gr, node=12,distance=2)
get_selection(gr2)
render_graph(transform_to_subgraph_ws(gr2))

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ä: