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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎Syykaavio: paranneltu syykaavio)
Rivi 17: Rivi 17:
=== Syykaavio ===
=== Syykaavio ===


<rcode>
* Ehdotus sosiaali- ja terveyspalveluiden uudeksi kansalliseksi mittaristoksi VN-TEAS 15.3.2017 http://tietokayttoon.fi/julkaisu?pubid=18701
library(OpasnetUtils)
* 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
objects.latest("Op_en3861",code_name="ecd_create") # [[Extended causal diagram]]
* 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
gr <- ecd_create(ecd_build(
* Tietoikkuna https://proto.thl.fi/tietoikkuna/#/chart?indicatorId=3775&regionId=953
  tablelist =html_table(read_html("https://yhteistyotilat.fi/wiki08/x/1oGxAg"))[[3]][1:4,],
* Sotkanet https://www.sotkanet.fi/sotkanet/fi/metadata/indicators/3775
  removes = NULL,
* Kouluterveyskysely https://sampo.thl.fi/pivot/prod/fi/ktk/ktk1/fact_ktk_ktk1/199464
  spliz = "Objekti",
  fills = c("Luokka","Predikaatti","Objekti")
))
 
render_graph(gr)
gr <- select_nodes_in_neighborhood(gr, node=43,distance=2)
render_graph(transform_to_subgraph_ws(gr))
export_graph(gr, "test7.pdf")
</rcode>


<rcode label="ECD on env health in Yhteistyötilat" graphics=1>
<rcode label="ECD Hyte-indikaattoreista" graphics=1>
library(OpasnetUtils)
# Tämä on koodi Op_fi5810/ sivulla [[Ympäristöterveysindikaattori]]
 
objects.latest("Op_en3861",code_name="ecd_create") # [[Extended causal diagram]]
 
gr <- ecd_create(ecd_build(
  tablelist =html_table(read_html("https://yhteistyotilat.fi/wiki08/x/1oGxAg"))[[3]][1:4,],
  removes = NULL,
  spliz = "Objekti",
  fills = c("Luokka","Predikaatti","Objekti")
))
render_graph(gr)
export_graph(gr, "test7.pdf")
</rcode>
 
 
<rcode label="ECD on Hyte indicators">
library(OpasnetUtils)
library(OpasnetUtils)


objects.latest("Op_en3861",code_name="ecd_create")
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/"
sotkanet <- "http://www.sotkanet.fi/sotkanet/fi/metadata/indicators/"
Rivi 70: Rivi 37:
tietoikkuna <- "https://proto.thl.fi/tietoikkuna/#/chart?indicatorId="
tietoikkuna <- "https://proto.thl.fi/tietoikkuna/#/chart?indicatorId="
# Sotkanet.ID = tietoikkuna.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 <- html_table(read_html("https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=0"))[[1]]
d2 <- d2[10:104, 1:17]
d2 <- d2[3:99, 2:18]


colnames(d2) <- c(
colnames(d2) <- c(
   "Id",
   "Ikäryhmä",
   "AHVK", # Alueellinen hyvinvointikertomus
   "AHVK", # Alueellinen hyvinvointikertomus
   "Asia",
   "Item",
   "Tehtäväkokonaisuus",
   "Tehtäväkokonaisuus",
   "Ulottuvuus",
   "Ulottuvuus",
Rivi 102: Rivi 61:
)
)


for(i in ncol(d2)) d2[[i]] <- as.character(d2[[i]])
d2 <- ecd_build(
  df = d2,
  oldid = "Hyte",
  spliz = c("Ulottuvuus","Osiotyyppi","JHS"),
  split = "/"
)


d3 <- rbind(
d2 <- orbind(orbind(orbind(orbind(
   data.frame( # Tämä osa voidaan jättää huomiotta sitten, kun JHS-luokka-sarake on täytetty.
   data.frame(
     Luokka = "Hyte-indikaattori",
     type = "Hyte-indikaattori",
     Asia = d2$Asia,
     Item = d2$Item,
     Predikaatti = "tehtäväkokonaisuus",
     Relation = "ulottuvuus",
     Objekti = d2$Tehtäväkokonaisuus,
     Object = d2$Ulottuvuus,
     URL = ifelse(d2$Sotkanetid=="e", NA, paste(sotkanet, substr(d2$Sotkanetid,1,4), sep="")),
     URL = ifelse(d2$Sotkanetid=="e", NA, paste(sotkanet, substr(d2$Sotkanetid,1,4), sep="")),
     Kuvaus = d2$Perustelut
     Description = d2$Perustelut,
    label = substr(d2$Item,1,25)
   ),
   ),
#  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(
   data.frame(
     Luokka = NA,
     Item = d2$Item,
    Asia = d2$Asia,
     Relation = "on osana",
     Predikaatti = "on osana",
     Object = ifelse(d2$AHVK=="x", "Alueellinen hyvinvointikertomus", NA)
     Objekti = ifelse(d2$AHVK=="x", "Alueellinen hyvinvointikertomus", NA),
   )),
    URL = NA,
    Kuvaus = d2$Perustelut
   ),
   data.frame(
   data.frame(
     Luokka = NA,
     Item = d2$Item,
    Asia = d2$Asia,
     Relation = "osiotyyppi",
     Predikaatti = "ulottuvuus",
     Object = d2$Osiotyyppi
     Objekti = d2$Ulottuvuus,
   )),
    URL = NA,
    Kuvaus = d2$Perustelut
   ),
   data.frame(
   data.frame(
     Luokka = NA,
     Item = d2$Item,
    Asia = d2$Asia,
     Relation = "discussed in",
     Predikaatti = "osiotyyppi",
     Object = d2$Tietolähde
     Objekti = d2$Osiotyyppi,
   )),
    URL = NA,
    Kuvaus = d2$Perustelut
   ),
   data.frame(
   data.frame(
     Luokka = NA,
     Item = d2$Item,
    Asia = d2$Asia,
     Relation = "JHS-luokka",
    Predikaatti = "discussed in",
     Object = d2$JHS
    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
   )
   )
)
d2$Object <- tolower(d2$Object)
d1 <- ecd_build(
  tablelist =html_table(read_html("https://yhteistyotilat.fi/wiki08/x/1oGxAg"))[[3]][1:4,],
  removes = NULL,
  spliz = "Objekti",
  split=",",
  fills = c("Luokka","Predikaatti","Objekti")
)
)


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


gr <- ecd_create(NA, removes=NULL,d3,spliz=c("Luokka"))
gr <- select_nodes_in_neighborhood(
  gr,
  node=gr$nodes_df$id[gr$nodes_df$label=="koulutervhuolto"][1],
  distance=2
)
get_selection(gr)


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


Versio 6. toukokuuta 2018 kello 13.31




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

Syykaavio

+ 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

Katso myös

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Ympäristöterveysindikaattori&oldid=35040”