Ero sivun ”Ympäristöterveysindikaattori” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(→Syykaavio: paranneltu syykaavio) |
|||
| Rivi 29: | Rivi 29: | ||
# Tämä on koodi Op_fi5810/ sivulla [[Ympäristöterveysindikaattori]] | # Tämä on koodi Op_fi5810/ sivulla [[Ympäristöterveysindikaattori]] | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
library(gsheet) | |||
objects.latest("Op_en3861",code_name="ecd_create") | objects.latest("Op_en3861",code_name="ecd_create") | ||
| Rivi 38: | Rivi 39: | ||
# Sotkanet.ID = tietoikkuna.indicatorID | # Sotkanet.ID = tietoikkuna.indicatorID | ||
coln <- c( | |||
"Ikäryhmä", | "Ikäryhmä", | ||
"AHVK", # Alueellinen hyvinvointikertomus | "AHVK", # Alueellinen hyvinvointikertomus | ||
| Rivi 61: | Rivi 59: | ||
) | ) | ||
####### Hyte-indikaattorit | |||
d2 <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=0") | |||
d2 <- d2[3:98,] | |||
colnames(d2) <- coln | |||
d2 <- ecd_build( | d2 <- ecd_build( | ||
df = d2, | df = d2, | ||
| Rivi 68: | Rivi 71: | ||
) | ) | ||
d2 <- orbind(orbind(orbind(orbind( | ###### Lape-indikaattorit | ||
d3 <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=2010476788") | |||
d3 <- d3[9:nrow(d3),] # Kopioitiin vain 2018 indikaattorit driveen. | |||
colnames(d3) <- coln[3:11] | |||
d3 <- ecd_build( | |||
df = d3, | |||
oldid = "Lape", | |||
spliz = c("JHS"), | |||
split = "," | |||
) | |||
d3<-d2 | |||
#d3 <- orbind(d2, d3) # Apparently too much nodes so choose one. | |||
d3 <- orbind(orbind(orbind(orbind( | |||
data.frame( | data.frame( | ||
type = " | Oldid = d3$Oldid, | ||
Item = | type = paste(d3$Tehtäväkokonaisuus, "indikaattori",sep="-"), | ||
Item = d3$Item, | |||
Relation = "ulottuvuus", | Relation = "ulottuvuus", | ||
Object = | Object = d3$Ulottuvuus, | ||
URL = ifelse( | URL = ifelse(d3$Sotkanetid %in% c("ei","e"), NA, paste(sotkanet, substr(d3$Sotkanetid,1,4), sep="")), | ||
Description = | Description = d3$Perustelut, | ||
label = substr( | label = substr(d3$Item,1,25) | ||
), | ), | ||
data.frame( | data.frame( | ||
Item = | Item = d3$Item, | ||
Relation = "on osana", | Relation = "on osana", | ||
Object = ifelse( | Object = ifelse(d3$AHVK=="x", "Alueellinen hyvinvointikertomus", NA) | ||
)), | )), | ||
data.frame( | data.frame( | ||
Item = | Item = d3$Item, | ||
Relation = "osiotyyppi", | Relation = "osiotyyppi", | ||
Object = | Object = d3$Osiotyyppi | ||
)), | )), | ||
data.frame( | data.frame( | ||
Item = | Item = d3$Item, | ||
Relation = "discussed in", | Relation = "discussed in", | ||
Object = | Object = d3$Tietolähde | ||
)), | )), | ||
data.frame( | data.frame( | ||
Item = | Item = d3$Item, | ||
Relation = "JHS-luokka", | Relation = "JHS-luokka", | ||
Object = | Object = d3$JHS | ||
) | ) | ||
) | ) | ||
d3$Object <- tolower(d3$Object) | |||
d1 <- ecd_build( | d1 <- ecd_build( | ||
| Rivi 109: | Rivi 127: | ||
) | ) | ||
d <- orbind(d1, d3) | |||
gr <- ecd_create(d) | |||
render_graph(gr) | |||
gr <- select_nodes_in_neighborhood( | gr <- select_nodes_in_neighborhood( | ||
Versio 6. toukokuuta 2018 kello 18.51
| Moderaattori:Jouni (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
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
- 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®ionId=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
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ä: