Ero sivun ”Keskipitkän aikavälin ilmastopolitiikan suunnitelma” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎Perustelut: jaetun ymmärryksen kausaalikaavio liikenteestä lisätty)
(korjattu koodi toimimaan suoraan Opasnetissä)
Rivi 63: Rivi 63:
Alla oleva koodi tarkastelee energiajailmasto.fi-sivulla esiteltyjä toimenpide-ehdotuksia. Niistä tiedoista voi piirtää mm. oheisen kuvan, joka esittää eri toimenpide-ehdotuksia niiden saaman kannatuksen mukaisessa järjestyksessä. Vastustavat näkemykset tulevat negatiiviselle puolelle.
Alla oleva koodi tarkastelee energiajailmasto.fi-sivulla esiteltyjä toimenpide-ehdotuksia. Niistä tiedoista voi piirtää mm. oheisen kuvan, joka esittää eri toimenpide-ehdotuksia niiden saaman kannatuksen mukaisessa järjestyksessä. Vastustavat näkemykset tulevat negatiiviselle puolelle.


<rcode>
<rcode graphics=1>
library(OpasnetUtils)
library(ggplot2)
library(ggplot2)
library(reshape2)
library(reshape2)


#Hae data, kun ensin on kaikki ":t muutettu ':ksi.
#Hae data, kun ensin on kaikki ":t muutettu ':ksi.
dat <- scan(file="/home/openuser/Documents/Energiajailmastotekstit.txt", what = character(), sep='\n', quote='\"', encoding = "latin1")
#dat <- sc#an(file="/home/openuser/Documents/Energiajailmastotekstit.txt", what = character(), sep='\n', quote='\"', encoding = "latin1")
dat <- opasnet.csv("d/d4/Energiajailmastotekstit.txt", wiki = "opasnet_fi", sep='\n', quote='\"', encoding = "latin1")[[1]]
dat <- as.character(dat)
 
ehd <- (1:length(dat))[grepl("puolesta, vastaan", dat)]
ehd <- (1:length(dat))[grepl("puolesta, vastaan", dat)]
ehdo <- strsplit(dat[ehd], " puolesta, vastaan ", fixed = TRUE)
ehdo <- strsplit(dat[ehd], split = " puolesta, vastaan ", fixed = TRUE)
 
dat2 <- data.frame(
dat2 <- data.frame(
   Puolesta = as.integer(unlist(lapply(ehdo, FUN = function(x) x[[1]]))),
   Puolesta = as.integer(unlist(lapply(ehdo, FUN = function(x) x[[1]]))),
Rivi 100: Rivi 105:
   "Maankäyttö ja autoton liikenne",
   "Maankäyttö ja autoton liikenne",
   "Pitkän matkan joukkoliikenne",
   "Pitkän matkan joukkoliikenne",
   "Palveluiden ja energiatehokkuuden parantaminen",
   "Palvelut ja energiatehokkuus",
   "Raskaan liikenteen energiatehokkuus",
   "Raskaan liikenteen energiatehokkuus",
   "Henkilö- ja pakettiautojen raja-arvot",
   "Henkilö- ja pakettiautojen raja-arvot",
Rivi 106: Rivi 111:
   "Sähköisen liikenteen edistäminen",
   "Sähköisen liikenteen edistäminen",
   "Jakeluvelvoite 40 prosenttiin",
   "Jakeluvelvoite 40 prosenttiin",
   "Flexfuel ja muut uusiutuvat mahdollistavat ratkaisut",
   "Flexfuel ja muut uusiutuvia edistävät",
   rep("", 51),
   rep("", 51),
   "Sähköautojen latauspisteet",
   "Sähköautojen latauspisteet",
Rivi 112: Rivi 117:
   "Maankäyttö ja autoton liikenne",
   "Maankäyttö ja autoton liikenne",
   "Pitkän matkan joukkoliikenne",
   "Pitkän matkan joukkoliikenne",
   "Palveluiden ja energiatehokkuuden parantaminen",
   "Palvelut ja energiatehokkuus",
   "Raskaan liikenteen energiatehokkuus",
   "Raskaan liikenteen energiatehokkuus",
   "Henkilö- ja pakettiautojen raja-arvot",
   "Henkilö- ja pakettiautojen raja-arvot",
Rivi 128: Rivi 133:
ggplot(dat2, aes(x = Ehdotus, y = Puolesta, fill = Aihe)) + geom_bar(stat="identity")
ggplot(dat2, aes(x = Ehdotus, y = Puolesta, fill = Aihe)) + geom_bar(stat="identity")


dat3 <- dat2
dat3$Ehdotus <- factor(dat3$Ehdotus, levels = dat3$Ehdotus[order(-dat3$Puolesta)])
dat3$Ehdotus <- factor(dat3$Ehdotus, levels = dat3$Ehdotus[order(-dat3$Puolesta)])
dat3 <- melt(dat3, id.vars = c("Aihe", "Ehdotus", "Kannatus"))
dat3 <- melt(dat3, measure.vars = c("Puolesta", "Vastaan"))
 
ggplot(dat3, aes(x = Ehdotus, y = value, fill = Aihe)) +  
ggplot(dat3, aes(x = Ehdotus, y = value, fill = Aihe)) +  
   geom_bar(data = dat3[dat3$value >= 0 , ], stat="identity") +
   geom_bar(data = dat3[dat3$value >= 0 , ], stat="identity") +
   geom_bar(data = dat3[dat3$value < 0 , ], stat="identity") +  
   geom_bar(data = dat3[dat3$value < 0 , ], stat="identity") +  
   geom_hline(yintercept = 0)
   geom_hline(yintercept = 0)+
  labs(title = "Eri toimien saamat äänet suosituimmuusjärjestyksessä aiheen mukaan")


dat4 <- dat2[-dat2$Vastaan > 40 | -dat2$Vastaan / dat2$Puolesta > 0.5 , ]
dat4 <- dat2[-dat2$Vastaan > 40 | -dat2$Vastaan / dat2$Puolesta > 0.5 , ]
dat4$Otsikko <- factor(dat4$Otsikko, levels = dat4$Otsikko[order(-dat4$Vastaan / dat4$Puolesta)])
dat4$Otsikko <- factor(dat4$Otsikko, levels = dat4$Otsikko[order(-dat4$Vastaan / dat4$Puolesta)])
dat4 <- melt(dat4, measure.vars = c("Vastaan", "Puolesta"))
dat4 <- melt(dat4, measure.vars = c("Vastaan", "Puolesta"))
ggplot(dat4, aes(x = Otsikko, y = value, fill = Aihe)) +  
ggplot(dat4, aes(x = Otsikko, y = value, fill = Aihe)) +  
   geom_bar(data = dat4[dat4$value >= 0 , ], stat="identity") +
   geom_bar(data = dat4[dat4$value >= 0 , ], stat="identity") +
Rivi 347: Rivi 356:
** TEM - Energia ja Ilmasto lopullinen.htm: sisältää luonnoksessa olevat ehdotukset, niiden äänestystulokset ja kommentit.
** TEM - Energia ja Ilmasto lopullinen.htm: sisältää luonnoksessa olevat ehdotukset, niiden äänestystulokset ja kommentit.
** TEM - Energia ja Ilmasto yleisoehdotukset.htm: sisältää yleisön antamat toimenpide-ehdotukset.
** TEM - Energia ja Ilmasto yleisoehdotukset.htm: sisältää yleisön antamat toimenpide-ehdotukset.
** Energiajailmastotekstit.txt: Kahden edellisen nettisivun sisältö tekstimuotoisena lievästi muokattuna lukukelpoisempaan muotoon (suhteellisen hyvin luettavissa esim. wikisivuna, mutta tekstiä on yli 80 printattua sivua).
** Energiajailmastotekstit.txt: Kahden edellisen nettisivun sisältö tekstimuotoisena lievästi muokattuna lukukelpoisempaan muotoon (suhteellisen hyvin luettavissa esim. wikisivuna, mutta tekstiä on yli 80 printattua sivua). Tästä on kevyesti muokattu versio erillisenä tiedostona: {{#l:Energiajailmastotekstit.txt}}


== Kommentoi arviointia ==
== Kommentoi arviointia ==


Voit kommentoida mitä tahansa arvioinnin sivua tässä. Selkeyden vuoksi kirjoita alempaan kenttään sen sivun nimi, jonka asioita kommentoit. {{kommentointityökalu}}
Voit kommentoida mitä tahansa arvioinnin sivua tässä. Selkeyden vuoksi kirjoita alempaan kenttään sen sivun nimi, jonka asioita kommentoit. {{kommentointityökalu}}

Versio 12. syyskuuta 2016 kello 07.42



Kysymys

Millainen pitäisi olla Suomen keskipitkän aikavälin ilmastopolitiikan suunnitelma, jotta se täyttäisi seuraavat ehdot:

  • Se on ilmastolain mukainen [2] eli siinä huomioidaan:
    • kansainvälisistä sopimuksista ja Euroopan unionin sitoumukset,
    • ei-päästökauppasektoriin kohdistuvat politiikkatoimet kasvihuonekaasupäästöjen vähentämiseksi,
    • pitkän aikavälin ilmastopolitiikan suunnitelma,
    • tarvittavat uudet päästökaupan ulkopuoliseen sektoriin kohdistuvat politiikkatoimet,
    • päästökehitysarviot seuraavista asioista:
      • Suomen kasvihuonekaasujen kokonaispäästöjen kehitykses vuodesta 1990,
      • päästökauppasektorin ja päästökaupan ulkopuolisen sektorin päästöjen kehitys vuodesta 2005;
      • kasvihuonekaasujen kokonaispäästöjen ja EPKS:n päästöjen kehitys nykyisten politiikkatoimien perusteella;
      • EPKS-päästöjen kehitys tämän suunnitelman perusteella.
  • Suunnitelma tulee sovittaa tarvittavilta osin yhteen energia- ja liikennepolitiikan suunnittelun kanssa.
  • Suunnitelman laatimisen yhteydessä arvioidaan sen ympäristövaikutukset sekä taloudelliset, sosiaaliset ja muut vaikutukset.
  • Se muutenkin noudattaa tehtäväksiantoa.

Oletettu käyttö ja käyttäjät

Arvioinnin pääkäyttäjä on ympäristöministeriö, jonka vastuulla suunnitelman tekeminen on. Toistaiseksi tämä Opasnetissä tehdävä työ on vain epävirallista luonnostelua, mutta pyrkimys on tarjota se osaksi virallista suunnitelmatyötä.

Osallistujat

  • THL?

Rajaus

Miten arviointi rajataan ajallisesti, maantieteellisesti, kysmyksenasettelultaan jne?

Vaihtoehdot

Mitkä ovat tarkasteltavat päätösvaihtoehdot? Miten ne vaikuttavat tarkasteltaviin muuttujiin?

Aikataulu

Suunnitelman tulee olla valmiina eduskunnan hyväksyttävänä toukokuussa 2017. Virallisen työryhmän tehtäväksianto alkoi lokakuussa 2015 ja jatkuu vuoden 2016 loppuun. Asiaan läheisesti liittyvän energia- ja ilmastostrategian tulee olla eduskunnassa joulukuussa 2016. ks. kärkihanke 1.

Vastaus

Tulokset

Arviointimallin keskeiset tulokset.

Päätelmät

Vastaus arvioinnin pääkysymykseen ja muihin kysymyksiin tulosten perusteella.

Perustelut

Alla oleva koodi tarkastelee energiajailmasto.fi-sivulla esiteltyjä toimenpide-ehdotuksia. Niistä tiedoista voi piirtää mm. oheisen kuvan, joka esittää eri toimenpide-ehdotuksia niiden saaman kannatuksen mukaisessa järjestyksessä. Vastustavat näkemykset tulevat negatiiviselle puolelle.

+ Näytä koodi

Katso myös


Energiasektori

Liikenne

Maa- ja metsätalous

Rakennettu ympäristö

Fluoratut, CFC-yhdisteitä korvaavat F-kaasut

Jätteet


Tekstiilijäte

Maanpuolustus

Politiikka

Puunpoltto

Energiantuotanto päästökaupan ulkopuolella

Kulutus

Lähteet


Aiheeseen liittyviä tiedostoja

  • Energiajailmasto sisältää kyselyn ja kommentoinnin tulokset sivulta http://www.energiajailmasto.fi 31.8.2016 asti, jolloin kommentointimahdollisuus sulkeutui. Zip-tiedostossa on kolme tiedostoa:
    • TEM - Energia ja Ilmasto lopullinen.htm: sisältää luonnoksessa olevat ehdotukset, niiden äänestystulokset ja kommentit.
    • TEM - Energia ja Ilmasto yleisoehdotukset.htm: sisältää yleisön antamat toimenpide-ehdotukset.
    • Energiajailmastotekstit.txt: Kahden edellisen nettisivun sisältö tekstimuotoisena lievästi muokattuna lukukelpoisempaan muotoon (suhteellisen hyvin luettavissa esim. wikisivuna, mutta tekstiä on yli 80 printattua sivua). Tästä on kevyesti muokattu versio erillisenä tiedostona: Energiajailmastotekstit

Kommentoi arviointia

Voit kommentoida mitä tahansa arvioinnin sivua tässä. Selkeyden vuoksi kirjoita alempaan kenttään sen sivun nimi, jonka asioita kommentoit.