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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎Syykaaviot: Toimiva graafintekokoodi)
Rivi 93: Rivi 93:
* 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="Piirrä näkemyskaavioita" graphics=1>
 
# Tämä on koodi Op_fi5810/ sivulla [[Ympäristöterveysindikaattori]]
* Malliajo 10.7.2018 [http://fi.opasnet.org/fi-opwiki/index.php?title=Toiminnot:RTools&id=hssS6hPED3pQb1tE] perustuen dataan tiedostossa {{#l:Näkemysverkkojen tietotauluja.zip}}
 
<rcode name="graphs" label="Tallenna graafiolio gr" graphics=0>
# Tämä on koodi Op_fi5810/graphs 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") # [[Extended causal diagram]] ecd_create, fillprev, splizzeria


sotkanet <- "http://www.sotkanet.fi/sotkanet/fi/metadata/indicators/"
sotkanet <- "http://www.sotkanet.fi/sotkanet/fi/metadata/indicators/"
Rivi 110: Rivi 112:
   wiki="opasnet_fi",
   wiki="opasnet_fi",
   unzip="meta.csv",
   unzip="meta.csv",
   sep=",",header=TRUE,stringsAsFactors=FALSE
   sep=",",header=TRUE,stringsAsFactors=FALSE,fileEncoding="UTF-8"
)  
)  
oprint(meta)


out <- list()
out <- list()
Rivi 118: Rivi 121:
     "3/3e/N%C3%A4kemysverkkojen_tietotauluja.zip",
     "3/3e/N%C3%A4kemysverkkojen_tietotauluja.zip",
     wiki="opasnet_fi",
     wiki="opasnet_fi",
     unzip=gsub("[Öö]","o",gsub("[ÄÅäå]","a",paste0(meta$Ilmio[i],".csv"))),
     unzip=gsub("[Öö\xf6]","o",gsub("[ÄÅäå\xe4]","a",paste0(meta$Ilmio[i],".csv"))),
     sep=",",header=TRUE,stringsAsFactors=FALSE
     sep=",",header=TRUE,stringsAsFactors=FALSE,fileEncoding="UTF-8"
   )
   )
   # 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
Rivi 136: Rivi 138:
   out[[i]] <- temp
   out[[i]] <- temp
}
}
#  Table-specific adjustments
#  Table-specific adjustments
out[[5]] <- splizzeria(out[[5]], cols = c("Ulottuvuus","Osiotyyppi","JHS.luokka"), split = "/") # HYTE
out[[5]] <- splizzeria(out[[5]], cols = c("Ulottuvuus","Osiotyyppi","JHS.luokka"), split = "/") # HYTE
out[[6]] <- splizzeria(out[[6]], cols = c("JHS.luokka"), split = ",") # LAPE
out[[6]] <- splizzeria(out[[6]], cols = c("JHS.luokka"), split = ",") # LAPE
Rivi 194: Rivi 194:
for(i in (1:nrow(meta))[meta$Tyyppi=="oletus"]) {
for(i in (1:nrow(meta))[meta$Tyyppi=="oletus"]) {
   if(nrow(d2)==0) d2 <- out[[i]] else d2 <- orbind(d2, out[[i]])
   if(nrow(d2)==0) d2 <- out[[i]] else d2 <- orbind(d2, out[[i]])
}
#' @title fillprev fills empty cells in a data.frame by using content from the previous row.
#' @param df data.frame to be filled
#' @param cols vector of column names or positions to be filled.
#' @return Returns a data.frame with the same shape as df.
fillprev <- function(df, cols) {
  out <- df
  for(i in cols) {
    for(j in 2:nrow(out)) {
      if(out[j,i] %in% c("", NA)) out[j,i] <- out[j-1,i]
    }
  }
  return(out)
}
}


Rivi 281: Rivi 267:
   )
   )
)
)
# Hiilineutraalin Helsingin toimijalistaus
d0 <- out[[13]]
d0$type=tolower(d0$type)
d0$label=substr(d0$Item,1,30)


########################### Create ecd_graph
########################### Create ecd_graph


d <- orbind(orbind(orbind(d3, d2), d1), d0)
d <- orbind(orbind(d3, d2), d1)
d$label <- ifelse(is.na(d$label), substr(d$Item,1,30), d$label)
d$label <- ifelse(is.na(d$label), substr(d$Item,1,30), d$label)


Rivi 298: Rivi 278:
gr <- select_edges(gr, conditions = grepl("Hyte", gr$edges_df$Oldid))
gr <- select_edges(gr, conditions = grepl("Hyte", gr$edges_df$Oldid))


gr <- deselect_nodes(gr, get_selection(gr))
#gr <- deselect_nodes(gr, get_selection(gr))
gr <- select_nodes(gr, conditions = grepl("HNH2035", gr$nodes_df$Oldid))
#gr <- select_nodes(gr, conditions = grepl("HNH2035", gr$nodes_df$Oldid))


#gr <- select_nodes_in_neighborhood(
#gr <- select_nodes_in_neighborhood(
Rivi 307: Rivi 287:
#)
#)
#get_selection(gr)
#get_selection(gr)
 
objects.store(gr)
cat("dgr_graph gr stored.\n")
#render_graph(gr)
#render_graph(gr)
render_graph(transform_to_subgraph_ws(gr))
render_graph(transform_to_subgraph_ws(gr))
export_graph(transform_to_subgraph_ws(gr), "test7.svg")
#export_graph(transform_to_subgraph_ws(gr), "test7.svg")
#export_graph(gr, "test7.pdf")
#export_graph(gr, "test7.pdf")
</rcode>
</rcode>

Versio 10. heinäkuuta 2018 kello 07.19




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

  • Katso sivun op_en:Congestion charge keskusteluja ja täydennä niihin eri paradigman mukaisia relaatioita. Käytettävät paradigmat:
    • science: templaatissa mainittu relaatio on science-paradigman mukainen. Perussääntö: argumentti on epäpätevä, jos siinä ei ole viittausta taustatietoon (havaintoihin) tai jos sitä vastaan hyökätään pätevällä argumentilla.
    • unattackedstand: Perussääntö: argumentti on epäpätevä, jos sitä vastaan hyökätään pätevällä argumentilla.
    • personaltine: Perussääntö: argumentti on epäpätevä, jos sen on esittänyt Tine Bizjak tai Tamara Gajst tai jos sitä vastaan hyökätään pätevällä argumentilla.
  • Kommentoi paradigmaidean käytettävyyttä ja mielekkyyttä yleensä ja sen sovellettavuutta eri paradigmojen osalta erityisesti.
  • Tee Google sheet, jonne listataan kaikki Sitran 100 fiksua tekoa siten, että sarakkeisiin tulevat. Mieti yhteisesti kattava teemalista ja käytä sitä yhdistämään Helsingin ja Sitran toimepiteitä.
    • 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ä: ----#: . Huom! Joihinkin on lisätty neljäs parametri paradigmaa varten. --Jouni Tuomisto (keskustelu) 9. heinäkuuta 2018 kello 11.00 (UTC) (type: truth; paradigms: science: comment)
    • Kommentti: 
      {{comment|# (tarvittaessa argumentin numero)|Kommentoiva argumentti.|--~~~~|unattackedstand:comment_invalid;personaltine:comment}}
    • Puolusta: 
      {{defend|# (tarvittaessa argumentin numero)|Puolustava argumentti.|--~~~~|personaltine:defend_invalid}}
    • Hyökkää (vastusta): 
      {{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=35089”