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.

Kysymys

Mitkä ovat hyödyllisiä indikaattoreita Suomen ympäristöterveystilanteen seuraamiseksi ja parantamiseksi?

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

+ Näytä koodi- Piilota koodi library(OpasnetUtils) 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")

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

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ä:

• Kyselylomakkeet
• Kaikki kouluterveyskyselyn tulokset dataportaali

+ Näytä koodi- Piilota koodi # This is code Op_fi5810/koulukysely on page [[Ympäristöterveysindikaattori]] url <- "https://sampo.thl.fi/pivot/prod/fi/ktk/ktk1/fact_ktk_ktk1.csv?row=area-87869.161055.235597.235713.236211.259770.259803.259692.259710.236112.259753.259815.235780.236146.236002.259679.259682.236133.236222.259675.259733.236051.235920.235827.235885.236295.259709.236200.235707.259808.259713.235708.235976.236233.259789.235797.236081.259685.235622.235906.259723.259810.235955.235793.236073.259787.235869.235881.235892.259725.259765.235947.236255.259697.235616.236189.235907.236122.259744.236140.235580.235913.259712.235685.235812.235714.161061.235679.259773.259783.235940.259737.235805.259807.235657.259730.235829.259800.236015.259740.235857.235639.259711.259772.236190.235592.259729.235832.235769.259680.259742.236283.235993.259700.236239.235721.259721.235701.235643.259797.236117.259818.235924.259688.259795.259708.235799.236240.259761.161009.235959.259793.259724.259756.259776.235678.259813.236155.259678.259769.235854.259821.259747.236173.259781.235649.236205.235731.259762.236066.259757.235742.236187.235781.235876.259739.259716.259718.236025.235866.235610.259774.259734.236287.235801.236159.236033.259771.259767.259806.236041.259704.236291.259727.259754.235871.259746.259811.161075.235939.235737.236149.259804.235662.259683.236171.259707.235962.235579.235659.235603.235589.259798.259715.259749.235933.235794.259705.235971.235951.235689.259743.236215.235979.259817.235875.259694.259720.236142.235824.259695.259684.236286.259696.259703.259759.259699.259825.236069.259755.259690.236281.259701.236271.259676.259750.235686.235994.235918.259792.235606.236032.259731.236191.235833.235877.236144.236213.235909.235992.259686.259717.235675.235915.236244.236258.259782.236253.259748.235647.235922.235998.259814.259736.259677.236027.259784.259780.259691.259766.235680.235849.235646.235740.236265.235811.161092.236127.259819.235984.235851.259763.259790.259732.236262.236214.235658.259778.235786.235691.259752.259758.235599.236096.236139.259791.235963.259760.259751.235848.235577.235956.236237.236277.259805.235820.259777.235784.259801.259809.236124.236249.236034.259702.259681.259714.235620.161039.235602.259802.235738.236102.236076.236030.236116.235896.236045.259738.236090.259706.259689.235850.259687.259785.236279.235926.235637.235739.259820.236288.161044.235598.259741.259726.259812.235732.259779.259698.236174.266765.&column=time-199465.&column=stage_of_stady-161293.161123.161219.&filter=measure-" measure <- matrix( c( "199935#", "Kuuma", "200120#", "Kylmä", "199915#", "Tunkkaisuus", "199469#", "Haju", "199308#", "Ahtaus", "199973#", "Melu", "200279#", "Valoisuus", "200316#", "Epämukavuus", "199604#", "Huonot WCt" ), nrow=2 ) d <- data.frame() for(i in 1:ncol(measure)) { d <- rbind( d, cbind( Kys = measure[2,i], read.csv(paste(url,measure[1,i],sep=""),sep=";",encoding="UTF-8") ) ) } d$val <- as.numeric(as.character(d$val)) d_ilma <- d[d$Kys %in% c("Kuuma","Kylmä","Tunkkaisuus","Haju"),] d_ilma <- aggregate( d_ilma["val"], by = d_ilma[c("Kyselyvuosi","Alue")], FUN=function(x) mean(x, na.rm=TRUE) ) d_ergo <- d[!d$Kys %in% c("Kuuma","Kylmä","Tunkkaisuus","Haju"),] d_ergo <- aggregate( d_ergo["val"], by = d_ergo[c("Kyselyvuosi","Alue")], FUN=function(x) mean(x, na.rm=TRUE) ) d_kaikki <- aggregate( d["val"], by = d[c("Kyselyvuosi","Alue")], FUN=function(x) mean(x, na.rm=TRUE) ) d_kaikki <- merge(merge(d_ilma, d_ergo, by=c("Kyselyvuosi","Alue")),d_kaikki) colnames(d_kaikki)[3:5] <- c("Ilma","Ergo","Kaikki") print(d_kaikki)

Katso myös

• Indikaattorit ja tietovarannot (osa Laki-IVA-opasta)