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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎Syykaaviot: yhdistelmäkoodit, jossa ei tarvita rvestiä)
Rivi 76: Rivi 76:
** Kommentti: <pre>{{attack|# (tarvittaessa argumentin numero)|Hyökkäävä argumentti.|--~~~~}}</pre>
** Kommentti: <pre>{{attack|# (tarvittaessa argumentin numero)|Hyökkäävä argumentti.|--~~~~}}</pre>


=== Syykaaviot ===
==== Syykaaviot ====


* Ehdotus sosiaali- ja terveyspalveluiden uudeksi kansalliseksi mittaristoksi VN-TEAS 15.3.2017 http://tietokayttoon.fi/julkaisu?pubid=18701
* Ehdotus sosiaali- ja terveyspalveluiden uudeksi kansalliseksi mittaristoksi VN-TEAS 15.3.2017 http://tietokayttoon.fi/julkaisu?pubid=18701
Rivi 100: Rivi 100:
# Sotkanet.ID = tietoikkuna.indicatorID
# Sotkanet.ID = tietoikkuna.indicatorID


coln <- c(
meta <- opasnet.csv(
   "Ikäryhmä",
   "3/3e/N%C3%A4kemysverkkojen_tietotauluja.zip",
   "AHVK", # Alueellinen hyvinvointikertomus
   wiki="opasnet_fi",
   "Item",
   unzip="meta.csv",
   "Tehtäväkokonaisuus",
   sep=",",header=TRUE
  "Ulottuvuus",
)  
  "Osiotyyppi",
  "Tietolähde",
  "Kuvaid",
  "Sotkanetid",
  "JHS",
  "Perustelut",
  "Taso",
  "Tiheys",
  "Viive",
  "Velvoite",
  "Huom",
  "Viite"
)


####### Hyte-indikaattorit
out <- list()
for(i in 1:nrow(meta)) {
  temp  <- cbind(
    opasnet.csv(
      "3/3e/N%C3%A4kemysverkkojen_tietotauluja.zip",
      wiki="opasnet_fi",
      unzip=gsub("[Öö]","o",gsub("[ÄÅäå]","a",paste0(meta$Ilmio[i],".csv"))),
      sep=",",header=TRUE
    ),
    Oldid = meta$Id[i]
  )
  for(j in 1:ncol(temp)) temp[[j]] <- as.character(temp[[j]])
  # Convert structural names to English
  colnames(temp)[colnames(temp)=="Lyhenne"] <- "label" # Columns defined by DiagrammeR start with small letter
  colnames(temp)[colnames(temp)=="Luokka"] <- "type"
  colnames(temp)[colnames(temp)=="Asia"] <- "Item"
  colnames(temp)[colnames(temp) %in% c("Predikaatti","Relaatio")] <- "Relation"
  colnames(temp)[colnames(temp) %in% c("Objekti","Kohde")] <- "Object"
  colnames(temp)[colnames(temp)=="Kuvaus"] <- "Description"
  temp$Object <- tolower(temp$Object)
  if(!"label" %in% colnames(temp)) temp$label <- NA
  temp$label <- ifelse(is.na(temp$label), substr(temp$Item,1,50), temp$label)
  out[[i]] <- temp
}


d2 <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=0")
out[[5]] <- splizzeria(out[[5]], spliz = c("Ulottuvuus","Osiotyyppi","JHS"), split = "/") # HYTE
d2 <- d2[3:98,]
out[[6]] <- splizzeria(out[[6]], spliz = c("JHS"), split = ",") # LAPE
colnames(d2) <- coln
d2 <- ecd_build(
  df = d2,
  oldid = "Hyte",
  spliz = c("Ulottuvuus","Osiotyyppi","JHS"),
  split = "/"
)


###### Lape-indikaattorit
d3 <- data.frame()
for(i in (1:nrow(meta))[meta$Tyyppi=="sotearv"]) d3 <- rbind(d3, out[[i]])


d3 <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1mVlLcvsDFHKivD8rSDyn3ijfvoUAjxnXOGb-nujLDak/edit#gid=2010476788")
# HYTE JA LAPE ELI SOTEARV
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(
d3 <- orbind(orbind(orbind(
   data.frame(
   data.frame(
Rivi 157: Rivi 151:
     label = substr(d3$Item,1,25)
     label = substr(d3$Item,1,25)
   ),
   ),
  #  data.frame(
  #    Item = d3$Item,
  #    Relation = "on osana",
  #    Object = ifelse(d3$AHVK=="x", "Alueellinen hyvinvointikertomus", NA)
  #  )),
   data.frame(
   data.frame(
     Item = d3$Item,
     Item = d3$Item,
Rivi 178: Rivi 167:
   )
   )
)  
)  
for(i in 1:ncol(d3)) d3[[i]] <- as.character(d3[[i]])
d3$Object <- tolower(d3$Object)


d1 <- ecd_build(
## Oletusmuotoiset taulut (Ympäristöterveys, Lasten ja aikuisten lihavuus, Yleiset ja erityiset luokittelut)
   tablelist =html_table(read_html("https://yhteistyotilat.fi/wiki08/x/1oGxAg"))[[3]][c(1,2,3,4),],
 
   removes = NULL,
d2 <- data.frame()
   spliz = "Objekti",
for(i in (1:nrow(meta))[meta$Tyyppi=="oletus"]) d2 <- rbind(d2, out[[i]])
 
for(i in c("type","Relation","Object")) {
   for(j in 2:nrow(d2)) {
    if(d2[j,i] %in% c("", NA)) d2[j,i] <- d2[j-1,i]
  }
}
d2 <- splizzeria(d2, spliz = "Objekti", split=",")
 
# Aikuisten lihavuuden säätöjä
# for(i in 1:4) d4[[i]] <- tolower(d4[[i]]) # Tarvitaanko tätä?
d2$URL <- ifelse(is.na(as.numeric(substr(d4$URL,1,4))), NA, paste(sotkanet, substr(d4$URL,1,4), sep=""))
 
######################### HNH2035
 
# Siirrä nämä ECD-tauluun.
coln <- c(
  "Teema",
  "Nro",
  "Toimenpide",
  "Ohjelma",
  "Vastuu",
  "Aikajänne",
  "Vaativuus",
  "Kustannukset",
  "Kust.kaupungille",
  "Hyödyt.kaupungille",
  "Kust.muille",
  "Hyödyt.muille",
  "Päästövähenemä",
  "Muut.vaikutukset",
  "Seurantaindikaattori",
  "Esimerkki",
  "Lisätietoa"
)
 
####### HNH2035-toimenpiteet
 
d2 <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1ejh-esNcuTjhoPWWqN7rC80xFtKKXu2n7PIUCDSOR98/edit#gid=885669064")
d2 <- d2[5:nrow(d2),1:9] # Many columns are empty at the moment
colnames(d2) <- coln[1:9]
 
repl <- array(c(
  "S&C säätiö","Smart&Clean",
  "yhteistyössä","",
  "yhteistyö","",
  "Yhteistyö:","",
  "ja","",
  "HSY Ilmastoinfo","HSY/Ilmastoinfo",
  "HSY:n Ilmastoinfo","HSY/Ilmastoinfo",
  "Kanslia ELO/Hanki","Kanslia/ELO",
  "GEO","Geo",
  "kasko","Kasko",
  "sote","Sote",
  "palvelukeskus","Palvelukeskus",
  "ympa","Ympa",
  "RYA","Rya",
  "PALU","Palu",
  "YMPA","Ympa",
  "MAKA","Maka",
  "KYMP","Kymp",
  "Smart&Clean -säätiö","Smart&Clean",
  "Smart & Clean -säätiö","Smart&Clean",
  "virium","Virium",
  "nuorisopalvelur","Nuorisopalvelut",
  "kanslia","Kanslia",
  "Kaupunginkanslia","Kanslia",
  "kaupunginkanslia","Kanslia",
  "(HSL), (HSY)",",",
  "ympa","Ympa",
  "Palu/Ympa","Ympa"
),
dim=c(2,28)
)
for(i in 1:ncol(repl)) {
  d2$Vastuu <- gsub(repl[1,i],repl[2,i],d2$Vastuu)
}
 
d2 <- ecd_build(
  df = d2,
  oldid = "HNH2035",
   fills="Teema",
   spliz="Vastuu",
   split=",",
   split=",",
   fills = c("Luokka","Predikaatti","Objekti")
   removes=list(Nro=NA)
)
# d2 <- splizzeria(d2, cols="Kustannukset", split="/") # Not used because doubles relations
colnames(d2)[colnames(d2)=="Toimenpide"] <- "Item"
d2 <- orbind(
  cbind(
    type="HNH2035-toimenpide",
    label=substr(d2$Item,1,25),
    d2,
    Relation="teema",
    Object=d2$Teema
  ),
  data.frame(
    Item=d2$Item,
    Relation="vastuullisena",
    Object=d2$Vastuu
  )
)
 
# Toimijalistaus
 
d3 <- html_table(read_html("http://fi.opasnet.org/fi/Hiilineutraali_Helsinki_2035"))[[2]]
d3$type <- gsub("Toimija","toimija",d3$type)
 
d3 <- ecd_build(
  df = data.frame(
    type=as.character(d3$type),
    label=as.character(d3$Nimi),
    Item=as.character(d3$Nimi)
  ),
  oldid = "HNHtoimija"
)
)


d <- orbind(d1, d3)
d3 <- orbind(d2, d3)
d3$Description <- paste(d3$Aikajänne, d3$Vaativuus, d3$Kustannukset, sep=". ")
for(i in 1:ncol(d3)) d3[[i]] <- as.character(d3[[i]])


d4 <- html_table(read_html("https://yhteistyotilat.fi/wiki08/x/WQmwAg"))[[5]]
for(i in 1:4) d4[[i]] <- tolower(d4[[i]])
d4$URL <- ifelse(is.na(as.numeric(substr(d4$URL,1,4))), NA, paste(sotkanet, substr(d4$URL,1,4), sep=""))
d4$Oldid <- paste("ALih",1:nrow(d4),sep="")
d4$Description <- ""
d4$label <- substr(d4$Item,1,50)
d <- d4


gr <- ecd_create(d)
gr <- ecd_create(d)

Versio 3. heinäkuuta 2018 kello 20.27




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

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