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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
Rivi 257: Rivi 257:
   grant="select"
   grant="select"
)
)
</rcode>
=== Sotearvioinnin koodi liittyen ympäristöterveyteen ===
<rcode>
# This is code Op_fi5810/ on page [[Ympäristöterveysindikaattori]]
library(rvest) # For html import
tx <- function(x, prec = 1) gsub("\\.", ",", as.character(round(x, prec))) # Converts numbers to nice Finnish format
write(
  "Sote-arviointi, hyvinvointi ja terveys: ympäristöterveyden osa-alue\n\n",
  file="sotearviointi.txt"
)
# Fetch data from Yhteistyötilat.
dat <- html_table(read_html("https://yhteistyotilat.fi/wiki08/x/SLHFAg"))[[3]] # Pienhiukkaspitoisuuden väestöpainotettu vuosikeskiarvo
colnames(dat) <- c("Alue","Mid","Municipality","Pid","Province","Pop","PM","Daly","Genetive","Adessive")
for(i in c(2,4,6,7,8)) dat[[i]] <- as.numeric(gsub(" ", "", dat[[i]]))
for(i in sort(unique(dat$Pid))) {
  datm <- dat[dat$Pid == i & dat$Alue=="Kunta", ]
  mk <- dat$Province[dat$Pid==i & dat$Alue=="HE-maakunta"]
  ka <- sum(dat$Pop * dat$PM / sum(dat$Pop))
  kam <- dat$PM[dat$Pid==i & dat$Alue=="HE-maakunta"]
  s1 <- "Pienhiukkaset ovat Suomessakin kaikkein suurin ympäristön terveyshaittaa aiheuttava tekijä. Ne ovat pääasiassa peräisin liikenteestä ja puun pienpoltosta. Myös energiantuotanto ja teollisuus ovat suurehkoja lähteitä mutta niiden ominaispäästöt ovat pienet (eli ne puhdistavat jo tehokkaasti päästöjään) ja päästöt tyypillisesti leviävät korkeista piipuista laajalle aiheuttamatta asutuskeskuksiin korkeita pitoisuuksia. Muita kuin polttoperäisiä päästölähteitä ovat mm. katupöly varsinkin keväisin, maatalouden pölyt sekä monista hajalähteistä syntyvät orgaaniset hiilivedyt, jotka muuttuvat hiukkasiksi vasta ilmakehässä.\n"
 
  s2 <- paste(
    "Pienhiukkaspitoisuuksien vuosikeskiarvo on arvioitu kunnittain THL:n koordinoimassa tutkimushankkeessa vuodelle 2015. Tämä on hyvä haitan mittari, koska tyypilliset terveyshaitat kuten sydäntaudit, krooninen bronkiitti ja keuhkosyöpä kehittyvät pitkäaikaisen altistuksen seurauksena. Kansainvälisesti verrattuna Suomen pienhiukkaspitoisuudet ovat pienet, mutta silti niiden arvioidaan aiheuttavan ",
    tx(sum(dat$Daly[dat$Alue=="Kunta"]), prec=-2),
    " terveen elinvuoden menetyksen tai vastaavasti vajaa kaksituhatta kuolemantapausta.\n",
    sep=""
  )
 
  s3 <- "Väestöpainotettu pienhiukkaspitoisuus oli "
  s4 <- paste(
    dat$Adessive[dat$Pid==i & dat$Alue=="HE-maakunta"],
    ifelse(kam < 0.8*ka ,"pieni ", ifelse(kam < 1.2*ka, "keskimääräinen ", "suomalaisittain suurehko ")),
    " (", kam, " µg/m3)",
    sep=""
  )
  s5 <- paste(", kun koko maan keskiarvo oli ", tx(ka), " µg/m3 (Sotkanet, id=678)", sep="")
  s6 <- ". Päästölähteet ja asutus keskittyvät tyypillisesti samoille alueille. Koko maan keskiarvo ylittyi "
  s7 <- dat[dat$PM > ka & dat$Alue=="HE-maakunta",]
  s7 <- s7[order(-s7$PM),]#[1:min(4,nrow(s7)),]
  s7 <- paste(s7$Adessive, " (", tx(s7$PM)," µg/m3)",sep="")
  s7 <- paste(s7, c(rep(", ", length(s7)-2), " ja ", ""), sep="", collapse="")
  s7 <- paste(s7, " (Sotkanet, id=678). ", sep="")
 
  s8 <- paste(dat$Genetive[dat$`Pid`==i & dat$Alue=="HE-maakunta"], " kunnista korkeimmat pitoisuudet olivat ", sep="")
  s9 <- datm[order(-datm$PM),][1:4,]
  s9 <- paste(s9$Adessive, " (", tx(s9$PM)," µg/m3)",sep="")
  s9 <- paste(s9, c(rep(", ", length(s9)-2), " ja ",""), sep="", collapse="")
  s9 <- paste(s9, " (Sotkanet, id=678). ", sep="")
 
  s10 <- "Valtakunnallisesti suurin pitoisuus oli "
  s11 <- dat[dat$Alue=="Kunta",]
  s11 <- s11[order(-s11$PM)[1],]
  s11 <- paste(s11$Adessive, " (", tx(s11$PM)," µg/m3).",sep="")
 
  s12 <- "Todennäköisesti Espoossa ja Vantaalla tilannetta on huonontanut puunpoltto kodeissa, kun taas Porvoossa tilanteeseen vaikuttaa Nesteen öljynjalostamo. Helsingissä taas päästötyyppejä on useita ja liikenne lienee tärkeämpi kuin muualla."
 
  s13 <- dat$Daly[dat$Pid==i & dat$Alue=="HE-maakunta"]/sum(dat$Daly[dat$Alue=="HE-maakunta"])
  s13 <- paste(
    "\nTautitaakasta ",
    cut(s13, breaks=c(0,0.03,0.06,0.1,0.2,0.3,0.5,0.7,1),labels=c(
    "alle kolmaskymmenesosa",
    "kahdeskymmenesosa",
    "alle kymmenesosa",
    "seitsemäsosa",
    "yli viidesosa",
    "yli kolmasosa",
    "yli puolet",
    "suurin osa"
  )), " (", tx(s13*100, prec=0), " %) syntyy ", dat$Adessive[dat$Pid==i & dat$Alue=="HE-maakunta"],
  ", eli siellä menetetään noin ",
  dat$Daly[dat$Pid==i & dat$Alue=="HE-maakunta"],
  " tervettä elinvuotta pienhiukkasten takia. ",
  sep="")
 
  s14 <- paste(
    "Helsingissä tämä luku on noin ",
    tx(dat$Daly[dat$Municipality=="Helsinki"], prec=-2),
    " eli merkittävä osa koko Suomen tautitaakasta (",
    tx(sum(dat$Daly[dat$Alue=="Kunta"]), prec=-2),
    " haittapainotettua elinvuotta).",
    sep=""
  )
 
  s15 <- paste(mk, "\n\n",s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,sep="")
 
  write(s15, file="sotearviointi.txt",append=TRUE)
}
</rcode>
</rcode>


Versio 7. kesäkuuta 2018 kello 20.25




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

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=35056”