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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
Rivi 198: Rivi 198:


=== Jaetun ymmärryksen kuvaus ===
=== Jaetun ymmärryksen kuvaus ===
[[File:Jaettu ymmärrys liikenteestä energia- ja ilmastostrategiassa autopiirto.png|thumb||400px|Jaettu ymmärrys liikenteestä energia- ja ilmastostrategissa. Kuva on sama kuin ylempänä mutta tuotettu koneellisesti ilmiökuvausten tietokannasta. Numerot viittaavat alla olevien taulukoiden (piilotettuna) numerointiin.]]
[[File:Jaettu ymmärrys liikenteestä energia- ja ilmastostrategiassa autopiirto.png|thumb||400px|Jaettu ymmärrys liikenteestä energia- ja ilmastostrategissa. Kuva on sama kuin ylempänä mutta tuotettu koneellisesti ilmiökuvausten tietokannasta. Numerot viittaavat alla olevien taulukoiden (piilotettuna) numerointiin.]]


Rivi 206: Rivi 207:
* Malliajo [http://fi.opasnet.org/fi_wiki/index.php?title=Toiminnot:RTools&id=lO9gYZdi0O7SUdTC 13.9.2016]
* Malliajo [http://fi.opasnet.org/fi_wiki/index.php?title=Toiminnot:RTools&id=lO9gYZdi0O7SUdTC 13.9.2016]


<rcode graphics=1>
<rcode graphics=1 variables="
name:sanalliset|description:Minkätyyppiset asiat haluat nimineen (muut ovat tunnistenumerolla)?|type:checkbox|options:
'muuttuja';Muuttuja;
'päätös';Päätös;
'teko';Teko;
'väite';Väite|default:'muuttuja'
">
# Tämä koodi on Op_fi5339/ sivulla [[Keskipitkän aikavälin ilmastopolitiikan suunnitelma]]
# Tämä koodi on Op_fi5339/ sivulla [[Keskipitkän aikavälin ilmastopolitiikan suunnitelma]]


Rivi 212: Rivi 219:
library(ggplot2)
library(ggplot2)
library(igraph)
library(igraph)
asiat <- opbase.data("Op_fi5339", subset = "Asiat")[-1] #Poistetaan Obs
asiat <- asiat[!duplicated(asiat$Asia) , ]
asiat$AsiaID <- as.character(asiat$AsiaID)
relaatiot <- opbase.data("Op_fi5339", subset = "Relaatiot")[-1] #Poistetaan Obs
jy <- merge(relaatiot, asiat, by.x = "Asia 1", by.y = "AsiaID", all.x = TRUE)
jy <- merge(jy, asiat, by.x = "Asia 2", by.y = "AsiaID", all.x = TRUE)
colnames(jy)[colnames(jy) == "Asia.x"] <- "Subjekti"
colnames(jy)[colnames(jy) == "Asia.y"] <- "Objekti"
colnames(jy)[colnames(jy) == "Result.x"] <- "Lisätieto relaatio"
colnames(jy)[colnames(jy) == "Result.y"] <- "Lisätieto subjekti"
colnames(jy)[colnames(jy) == "Result"] <- "Lisätieto objekti"
colnames(jy)[colnames(jy) == "Tyyppi.x"] <- "Tyyppi subjekti"
colnames(jy)[colnames(jy) == "Tyyppi.y"] <- "Tyyppi objekti"
jy <- jy[c("Subjekti", "Relaatio", "Voima", "Objekti", "Lisätieto subjekti", "Lisätieto relaatio", "Lisätieto objekti", "Tyyppi subjekti", "Tyyppi objekti", "Asia 1", "Asia 2")]
oprint(jy)
relaatiot <- relaatiot[relaatiot$Relaatio != "on sama kuin" , ] # Nämä poistetaan turhana kuvasta.
jygraph <- graph.data.frame(relaatiot[c(1, 4, 2, 3)], directed = TRUE)
for(i in asiat$AsiaID) {
  if(!i %in% V(jygraph)$name) jygraph <- jygraph + vertex(i)
  temp <- as.character(asiat$Tyyppi[asiat$AsiaID == i])
  if(!is.na(temp)) V(jygraph)$Tyyppi[V(jygraph)$name == i] <- temp
  temp <- as.character(asiat$Result[asiat$AsiaID == i])
  if(!is.na(temp)) V(jygraph)$Huom[V(jygraph)$name == i] <- temp
}


edgetype <- data.frame(
edgetype <- data.frame(
   Relaatio = c(
   Relation = c(
     "jos niin",
     "jos niin",
     "jos niin ei",
     "jos niin ei",
Rivi 291: Rivi 268:
   x, # vector with type data (possibly several per row)
   x, # vector with type data (possibly several per row)
   y  # vector of unique types in the order of preference
   y  # vector of unique types in the order of preference
  ) {
) {
   temp <- apply(as.data.frame(y), MARGIN = 1, FUN = function(a) grep(a, x))
   temp <- apply(as.data.frame(y), MARGIN = 1, FUN = function(a) grep(a, x))
   out <- rep(NA, length(x))
   out <- rep(NA, length(x))
Rivi 299: Rivi 276:
   return(out)
   return(out)
}
}
V(jygraph)$name
 
findanytype <- function( # Finds which values of x contain any of entries y
  x, # vector with type data (possibly several per row)
  y  # vector of unique types that give TRUE
) {
if(length(y) > 0) {
  out <- apply(as.data.frame(y), MARGIN = 1, FUN = function(a) grepl(a, x))
  out <- lapply(out, FUN = any)
} else {
  out <- rep(FALSE, length(x))
}
  return(out)
}
 
asiat <- opbase.data("Op_fi5339", subset = "Asiat")[-1] #Poistetaan Obs
asiat <- asiat[!duplicated(asiat$Asia) , ]
asiat$AsiaID <- as.character(asiat$AsiaID)
relaatiot <- opbase.data("Op_fi5339", subset = "Relaatiot")[-1] #Poistetaan Obs
relaatiot <- relaatiot[relaatiot$Relaatio != "on sama kuin" , ] # Nämä poistetaan turhana.
 
# Create full table with edges and vertices.
 
jy <- merge(relaatiot, asiat, by.x = "Asia 1", by.y = "AsiaID", all.x = TRUE)
jy <- merge(jy, asiat, by.x = "Asia 2", by.y = "AsiaID", all.x = TRUE)
#colnames:
#[1] "Asia 2"  "Asia 1"  "Relaatio" "Voima"    "Result.x" "Asia.x"  "Tyyppi.x" "Result.y"
#[9] "Asia.y"  "Tyyppi.y" "Result" 
 
jy <- jy[c(6, 3, 4, 9, 8, 5, 11, 7, 10, 1, 2)]
colnames(jy) <- c(
  "Subject",
  "Relation",
  "Strength",
  "Object",
  "Note_s",
  "Note_r",
  "Note_o",
  "Type_s",
  "Type_o",
  "ID_s",
  "ID_o"
)
 
jy$Subject <- as.character(jy$Subject)
jy$Object <- as.character(jy$Object)
jy$Subject <- ifelse(findanytype(jy$Type_s, sanalliset), jy$Subject, jy$ID_s)
jy$Object <- ifelse(findanytype(jy$Type_o, sanalliset), jy$Object, jy$ID_o)
 
oprint(jy)
colnames(jy)
jy$ecolor <- edgetype$Color[match(jy$Relation, edgetype$Relation)]
jy$ewidth <- edgetype$Width[match(jy$Relation, edgetype$Relation)]
jy$earrow.size <- 0.5
 
jy_asiat <- jy[c(1,5,8,10)]
colnames(jy_asiat) <- c("Name", "Note", "Type", "ID")
temp <-  jy[c(4,7,9,11)]
colnames(temp) <- c("Name", "Note", "Type", "ID")
jy_asiat <- rbind(jy_asiat, temp)
jy_asiat <- jy_asiat[!duplicated(jy_asiat$Name) , ]
jy_asiat$vsize <- ifelse(grepl("muuttuja", jy_asiat$Type), 20, 10)
jy_asiat$vcolor <- ifelse(grepl("kiistelty", jy_asiat$Note), "Brown", "SkyBlue2")
jy_asiat$vshape <- vertextype$Shape[findtypes(jy_asiat$Type, vertextype$Type)]
 
jygraph <- graph.data.frame(jy[c(1, 4, 2, 3, 5:ncol(jy))], directed = TRUE, vertices = jy_asiat)
#for(i in asiat$AsiaID) {
#  if(!i %in% V(jygraph)$name) jygraph <- jygraph + vertex(i)
#  temp <- as.character(asiat$Tyyppi[asiat$AsiaID == i])
#  if(!is.na(temp)) V(jygraph)$Tyyppi[V(jygraph)$name == i] <- temp
#  temp <- as.character(asiat$Result[asiat$AsiaID == i])
#  if(!is.na(temp)) V(jygraph)$Huom[V(jygraph)$name == i] <- temp
#}


plot(jygraph,  
plot(jygraph,  
  vertex.label.cex = 0.8,  
    vertex.label.cex = 0.8,  
  vertex.size = ifelse(grepl("muuttuja", V(jygraph)$Tyyppi), 20, 10),  
    vertex.size = V(jygraph)$vsize,  
  vertex.color = ifelse(grepl("kiistelty", V(jygraph)$Huom), "Brown", "SkyBlue2"),  
    vertex.color = V(jygraph)$vcolor,  
  vertex.shape = vertextype$Shape[findtypes(V(jygraph)$Tyyppi, vertextype$Type)],
    vertex.shape = V(jygraph)$vshape,
  vertex.label.family = "Helvetica",
    vertex.label.family = "Helvetica",
  edge.color = edgetype$Color[match(E(jygraph)$Relaatio, edgetype$Relaatio)],
    edge.color = E(jygraph)$ecolor,
  edge.width = edgetype$Width[match(E(jygraph)$Relaatio, edgetype$Relaatio)],
    edge.width = E(jygraph)$ewidth,
  edge.arrow.size = 0.5,
    edge.arrow.size = 0.5,
  layout = layout.fruchterman.reingold
    layout = layout.fruchterman.reingold
)
)
   
 
cat("Onnistui\n")
cat("Onnistui\n")
</rcode>
</rcode>

Versio 16. lokakuuta 2016 kello 17.56



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

Yleiskuvaus

Liikenteeseen liittyvät toimenpide-ehdotukset energia- ja ilmatostrategian luonnoksessa ja kansalaiskeskustelun palaute 31.8.2016.
Nro Aihe Toimi Ehdotus Puolesta Vastaan Kannatus
53 Uusiutuvat Nykyverotus liikennepolttoaineille Jatketaan nykyistä liikennepolttoaineinen verojärjestelmää ja jakeluvelvoitetta. 80 -99 -19
54 Uusiutuvat Jakeluvelvoitteen nosto Jakeluvelvoite nostetaan nykytasolta. 91 -81 10
55 Uusiutuvat Demotukirahoja biopolttoaineille Kehittyneiden biopolttoaineiden demolaitokset voivat kilpailla demotukirahoista. 158 -51 107
56 Uusiutuvat Liikennebiokaasun lisääminen Liikennebiokaasun käytön edistäminen. 172 -52 120
57 Liikennejärjestelmä Maankäyttö ja autoton liikenne Liikenteen ja maankäytön yhteensovittaminen ja kävelyn, pyöräilyn ja joukkoliikenteen edistäminen kaupunkiseuduilla. 132 -17 115
58 Liikennejärjestelmä Pitkän matkan joukkoliikenne Joukkoliikenteen edistäminen pitkillä matkoilla (henkilöautojen sijaan). 114 -31 83
59 Liikennejärjestelmä Palvelut ja energiatehokkuus Liikenteen uudet palvelut ja liikenteen energiatehokkuuden parantaminen digitalisaatiota ja muita ratkaisuja hyödyntämällä. 110 -12 98
60 Liikennejärjestelmä Raskaan liikenteen energiatehokkuus Raskaan liikenteen energiatehokkuuden parantaminen (esim. ammattiliikenteen vastuullisuusmalli, tavanomaista suuremmat mitat ja massat raskaissa kuljetuksissa). 89 -29 60
61 Liikennejärjestelmä Henkilö- ja pakettiautojen raja-arvot Henkilö- ja pakettiautojen energiatehokkuuden parantaminen (autovalmistajia koskevat sitovat CO2-raja-arvot). 97 -28 69
62 Liikennejärjestelmä Raskaan kaluston raja-arvot Raskaan kaluston energiatehokkuuden parantaminen (CO2-päästöjä koskeva ilmoittamismenettely ja autovalmistajia koskevat sitovat CO2-raja-arvot). 95 -19 76
63 Liikennejärjestelmä Sähköisen liikenteen edistäminen Sähköisen liikenteen edistäminen 136 -16 120
64 Liikenteen uusiutuvat Jakeluvelvoite 40 prosenttiin Jakeluvelvoitelain jatkaminen ja tavoitetason kiristäminen (nestemäiset biopolttoaineet ja biokaasu). 73 -45 28
65 Liikenteen uusiutuvat Flexfuel ja muut uusiutuvia edistävät Uusiutuvien polttoaineiden käytön mahdollistaminen henkilöautokannassa (sähköautot, kaasuautot, FFV-autot eli flexfuel-autot, muut korkeille uusiutuvien polttoaineiden seoksille soveltuvat autot). 138 -19 119
66 Korjausrakentaminen Sähköautojen latauspisteet Uudistavassa peruskorjaamisessa varaudutaan sähköautojen latauspisteiden järjestämiseen sekä rakennuskohtaiseen energiamittaukseen. 82 -9 73

Huom! Numerointi jatkuu siitä, mihin edellinen jaetun ymmärryksen esimerkki jäi sivulla Jaetun ymmärryksen menetelmä.

Data

  • 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

Jaetun ymmärryksen kuvaus

Jaettu ymmärrys liikenteestä energia- ja ilmastostrategissa. Kuva on sama kuin ylempänä mutta tuotettu koneellisesti ilmiökuvausten tietokannasta. Numerot viittaavat alla olevien taulukoiden (piilotettuna) numerointiin.

Tässä osiossa kuvataan jaettua ymmärrystä käyttäen apuna jaetun ymmärryksen menetelmää, jossa kokonaisuus kuvataan asioina ja niiden välisinä relaatioina (eli suhteina). Alla olevat taulukot ja koodi sisältävät täsmällisemmässä muodossa yllä olevan kaaviokuvan sisällön.

Jos asia on yhtaikaa teko ja päätös, päätöksen loogisena vaihtoehtona on, että kuvattua tekoa ei tehdä. Tekemättömyys ei siis tarvitse omaa asiaa.

Minkätyyppiset asiat haluat nimineen (muut ovat tunnistenumerolla)?:
Muuttuja
Päätös
Teko
Väite

+ Näytä koodi



Analyysi

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.