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.

+ 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))