Energiarenessanssi

Tämä sivu on tietokide alatyypiltään arviointi. Sivutunniste: Op_fi5642
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi5642}}

Kysymys

Energiarenessanssin kysymys on kaksitasoinen.

• Millaisia toimenpiteitä Helsingin kaupungissa pitäisi tehdä, jotta päästäisiin tavoitteeseen hiilineutraalista kaupungista vuoteen 2050 mennessä?
• Millä tavalla energiarenessanssiin liittyvää tietoa pitäisi jäsentää, jotta se tuottaisi jaettua ymmärrystä aiheesta ja hyödyntäisi jaetun ymmärryksen menetelmää?

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

Helsingin kaupunki käyttää tietoja tehdäkseen toiminnastaan sisäisesti johdonmukaista, jotta toimenpiteet eivät estäisi toisten toimenpiteiden toteuttamista tai niiden tavoitteiden saavuttamista.

Osallistujat

• Jouni Tuomisto THL, arvioinnin vetäjä
• Helsingin kaupungin ympäristökeskus, ongelmanomistaja. (Jari Viinanen, Petteri Huuska, Mira Jarkko, Timo Kuusiola, Sonja-Maria Ignatius)

Rajaus

Arviointi rajataan aluksi melko suppeaksi, koska työn tekemiseen on vain niukasti resursseja. Rajaus tehdään vasta, kun nähdään millaista materiaalia ja tarpeita alkaa kertyä.

Vaihtoehdot

Toistaiseksi ei ole tunnistettu selkeitä vaihtoehtoja.

Aikataulu ja toteutus

Työ alkaa lokakuussa 2016 ja jatkuu pienellä liekillä 2017 puolelle. Jatko riippuu hankkeen alkuvaiheen onnistumisesta ja mahdollisen ulkopuolisen rahoituksen saamisesta.

Alkuvaiheen keskeinen työ on koota tälle sivulle tietoa, raportteja ja näkemyksiä liittyen energiarenessanssiin. Ympäristökeskus lähettää niitä Jounille, joka rakentaa niistä systemaattista kuvausta. Tämä kuvaus toimii sitten jatkokeskustelujen ja kritiikin pohjana.

Vastaus

Jaettu ymmärrys rakennuskantaan liittyvistä asioista. Muuttujarunko on sivulta Helsingin energiapäätös 2015 ja siihen liittyvät asiat ovat energia ja ilmasto -kyselystä ja hankkeesta Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet.

Yksityiskohta edellisestä kuvasta.

Tulokset

Ei ole vielä tuloksia.

Päätelmät

Ei ole vielä päätelmiä.

Perustelut

Mahdollisia aiheita tarkasteltavaksi

• Energiarenessanssi ←--#: . Tämä valittiin kiinnostavimpana ja ajankohtaisimpana. --Jouni Tuomisto (keskustelu) 12. lokakuuta 2016 kello 14.50 (UTC) (type: truth; paradigms: science: defence)
• Kaupunkibulevardit
• Ruuhkamaksu: Millaisia arvot ja mielikuvat ovat ja mistä ne tulevat
• Keskuspuisto / yleiskaava
• Pysäköintipolitiikka / parkkipaikkanormi

Keskustelua

• On hyödyllistä, että ei tavoitella kohsensusta vaan kuvataan myös ristiriidat. Se auttaa ymmärtämään tilannetta.
• Iso päätös tarvitsee tuekseen paljon sitä tukevia pieniä päätöksiä. Mikä laukaisee prosessin, jolla iso päätös saadaan aikaan? Miten tehdään politiikkaa, jolla estetään pieniä päätöksiä olemasta ison päätöksen vastaisia? Tukevatko pienet päätökset isoa päätöstä, esim. mitkä normit rajoittavat tiivistä kaupunkia?
• Miten monimutkaisen asian osat liittyvät toisiinsa? Miten kuvataan tällainen järjestelmä siin, että tietokone voi ylläpitää kuvausta järjestelmästä ja tuottaa sieltä hyödyllisiä näkymiä käyttäjälle (esimerkiksi nostaa esiin johonkin yksityiskohtaan liittyviä asioita vaikka käyttäjä ei tiedä niiden liittyvän siihen)?

Jaetun ymmärryksen kuvaus

Tietoa jaettuun ymmärrykseen lähdettiin hakemaan useasta eri lähteestä.

• Keskipitkän aikavälin ilmastopolitiikan suunnitelma sisältää energia- ja ilmastosuunnitelman, jonka data löytyy koodista Op_fi5339/preprocessing. Siinä on tällaista tietoa:
  • Kysely: äänestys erilaisista suunnitelluista toimenpiteistä. Data.frame ejikysely. Sarakkeet: Aihe, Toimi, Vaikutus (toistaiseksi tyhjä), Kannatus, Puolesta, Vastaan, Ehdotus.
  • Kommentit: vapaamuotoisia kommentteja ja väitteitä. Data.frame ejikomm. Sarakkeet: Row, Time, Comment, Topic.
  • Sivu sisältää myös rakenteen, jota käytettiin liikennetoimenpiteiden, väitteiden ja muuttujien kuvaamiseen (alaotsikko Jaetun ymmärryksen kuvaus). Taulukoissa on se rakenne, joka on oikeastaan minimi jotta jaetun ymmärryksen kaavio saataisiin aikaan.
    • Asiat: Obs, AsiaID, Asia, Tyyppi, Huom.
    • Relaatiot: Obs, Asia 1, Relaatio, Voima, Asia 2, Tarkenne.
• Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet, jossa on listattuna Helsingin kaupungin ohjelmissa esitettyjä tavoitteita ja toimenpiteitä. Ohjelmatason toimenpiteet sisältää taulukon, jossa on listattuna yli 600 eri ohjelmissa mainittua ilmastotoimenpidettä. Sarakkeet: Obs, Aineisto, Sivunumero, Osa-alue, Toimenpide, Relaatio, Strategiatason tavoite, Toimija, Vaikutus.
• Helsingin strategiset energiatehokkuus- ja ilmastotavoitteet sisältää taulukon Tavoitteet tavoitteista ilmaston ja energian osalta. Sarakkeet: Obs, Aineisto, Sivunumero, Jaenumero, Osa-alue, Tavoite, Kuvaus.
• op_en:Helsinki energy decision 2015 sisältää kausaalikuvauksen rakennuskantaan liittyvästä energiatarpeesta ja -tuotannosta. Tämän mallin keskeisistä muuttujista voisi rakentaa taulukon, joka on rakenteeltaan sama kuin yllä mainittu taulukko Asiat. Muuttujat löytyvät kuvasta op_en:File:Helsinki energy decision 2015.png.

Tästä materiaalista lähdetään rakentamaan energiarenessanssiin liittyvää kaaviota seuraavan ohjeen mukaisesti:

• Taulukko Asiat, rakenne: Obs, AsiaID, Asia, Tyyppi, Kuvaus, Huom. Huom sisältää tiedon esim siitä, onko asia kiistanalainen.
  • t2b tällä sivulla, johon kirjataan käsin muuttujia Helsingin energiapäätöksestä. AsiaID = "ene"+Obs, Aihe, Asia, Tyyppi = "muuttuja" tms, Kuvaus, Huom.
  • ejikysely: AsiaID = paste("eji", 1:nrow(ejikysely), sep = ""), Aihe = Aihe, Tyyppi = "päätös", Asia = Toimi, Vaikutus (jätetään pois), (Kannatus = Kannatus,) Puolesta = Puolesta, Vastaan = Vastaan, Kuvaus = Ehdotus, Huom = Kannatus?.
  • ejikomm: AsiaID = "kom"+Row, Aihe = Topic, Type = "väite", Asia = t2b:hen kirjoitettu ydinajatus, Kuvaus = Comment, Huom = Time.
  • Helsingin ohjelmatoimet: AsiaID = "ohj"+Obs, Aineisto = Aineisto, Sivunumero = Sivunumero, Aihe = Osa-alue, Tyyppi = "päätös", Asia = Toimenpide, Relaatio: ei oteta mukaan mutta valitaan vain rivit jotka "tukee", Tavoite = Strategiatason tavoite, Toimija = Toimija, (Vaikutus = Vaikutus,) Kuvaus = Toimenpide, Huom = Vaikutus?.
  • Helsingin strategiat: AsiaID = "str"+Obs, Aineisto = Aineisto, Sivunumero = Sivunumero, Jaenumero = Jaenumero, Tyyppi = "arvo", Aihe = Osa-alue, Asia = Tavoite, Kuvaus = Kuvaus, Huom = Jaenumero?.
• Taulukko Relaatiot, rakenne: Obs, Subjekti, Relaatio, Voima, Objekti, Tarkenne.
  • t2b tällä sivulla, johon kirjataan käsin käsittelyyn nostettavia asioita. Jos asialla ei ole relaatiota, se tippuu pois.

Näytä yksityiskohdat

Energiarenessanssin asioita(-) Obs Aihe Asia Tyyppi Kuvaus Huom 1 Rakennuskanta Rakennuskanta nyt muuttuja Rakennuskannan suuruus rakennustyypeittäin neliömetreinä nyt (perustuen tilastoihin) 2 Rakennuskanta Rakennuskannan suuruus muuttuja Rakennuskannan suuruus neliömetreinä eri vuosina (myös tulevaisuuden ennuste) 3 Rakennuskanta Korjausrakentaminen muuttuja Korjausrakentamisen määrä %/a rakennustyypeittäin 4 Rakennuskanta Korjausrakentamisen tyyppi muuttuja Korjausrakentamisen tyyppi (kuinka laaja remontti ja kuinka suuret energiavaikutukset) silloini kun remontti tehdään (%-osuus remonteista) 5 Rakennuskanta Uudisrakentaminen ja purkaminen muuttuja Uudisrakentamisen ja purkamisen määrä rakennustyypeittäin ja vuosittain (rakennus-m2/a) 6 Rakennuskanta Lämmitysmuoto ja energiatehokkuus muuttuja Eri lämmitysmuodon ja energiatehokkuuden jakaumat erityyppisissä ja -ikäisissä rakennuksissa (%-osuus rakennuskannasta) 7 Rakennuskanta Lämmön ominaiskulutus muuttuja Rakennuksen lämmönkulutus laskettuna rakennuspinta-alaa kohti erityyppisissä rakennuksissa (W/m2/K) 8 Rakennuskanta Suhteellinen energiankulutus muuttuja Rakennuksen suhteellinen energiankulutus erityyppisissä ja eri tavalla korjatuissa rakennuksissa verrattuna vertailurakennukseen 9 Rakennuskanta Kuluttajasähkö muuttuja Kuluttajasähkön määrä erityyppisissä rakennuksissa rakennusneliömetriä kohti (W/m2) 10 Rakennuskanta Kulutusjousto muuttuja Sähköntarpeen kulutusjousto siirtää kysyntää muutamilla tunneilla huippukysynnän tasoittamiseksi 11 Rakennuskanta Energiankulutus muuttuja Rakennusten kokonaisenergiankulutus energialajeittain eri sääoloissa (W) 12 Rakennuskanta Puurakentamisen elinkaarivaikutus muuttuja Puurunkoisella rakentamisella on vaikutuksia lämmitystarpeeseen, rakennusmateriaalien elinkaarivaikutuksiin ja sisäilmaan. Näitä asioita tarkastelevan muuttujan täsmällinen sisältö on kuitenkin epäselvä 13 Rakennuskanta Sisäilmaolosuhteet muuttuja Sisäilmaolosuhteilla tarkoitetaan lämpötilaa, kosteutta, melua, sisäilmassa olevia yhdisteitä ja muita tekijöitä, joilla voi olla vaikutusta ihmisen terveyteen tai viihtyisyyteen. Täsmällinen sisältö määrittelemättä Energiarenessanssin relaatiot(-) Obs Subjekti Relaatio Voima Objekti Tarkenne Kuvaus 1 eji75 vaikuttaa ene8 Suositus parantaa energiatehokkuutta 2 eji78 vaikuttaa ene5 Puurakentaminen tuottaa energiatehokkaampia taloja 3 eji79 vaikuttaa ene7 Olosuhdeseuranta tehostaa energiankäyttöä 4 eji80 vaikuttaa ene10 Kysyntäjousto 5 ene1 vaikuttaa lisäävästi ene2 Tuleva rakennuskanta perustuu nykyiseen 6 ene3 vaikuttaa ene2 Korjausrakentaminen muuttaa rakennuskantaa 7 ene4 vaikuttaa ene2 Korjausrakentaminen muuttaa rakennuskannan laatua 8 ene5 vaikuttaa lisäävästi ene2 Uudisrakentaminen lisää ja purkaminen vähentää rakennuskantaa 9 ene6 vaikuttaa ene2 Lämmitysmuoto vaikuttaa rakennuskannan rakenteeseen 10 ene7 vaikuttaa ene11 Lämmön ominaiskulutus vaikuttaa rakennuskannan energiankulutukseen 11 ene8 vaikuttaa ene2 Energiankulutus vaikuttaa rakennuskannan rakenteeseen 12 ene9 vaikuttaa lisäävästi ene11 Kuluttajasähkö lisää energiankulutusta 13 ene10 vaikuttaa ene11 Kulutusjousto muuttaa kulutuksen ajoitusta edullisemmaksi 14 ene2 vaikuttaa lisäävästi ene11 Rakennuskannan koko vaikuttaa energiankulutukseen 15 eji83 vaikuttaa ene3 Peruskorjausten tehostaminen parantaa rakennuskannan laatua 16 eji85 vaikuttaa ene7 Passiivinen jäähdytys vähentää lämmönkulutusta joissakin rakennustyypeissä 17 eji90 vaikuttaa ene7 Rakennusohjeet vaikuttavat lämmönkulutukseen uudisrakennuksissa 18 eji91 vaikuttaa ene8 Käyttöneuvonta vaikuttaa koko rakennuskannan energiankulutukseen 19 kom1424 vaikuttaa ene7 Energialasku innostaa vähentämään kulutusta 20 kom1432 vaikuttaa ene10 Tuntikohtainen laskutus innostaa vähentämään kulutusta 21 kom1435 vaikuttaa ene7 Energiakatselmukset auttavat energiansäästössä jos toimia tuetaan 22 kom1442 vaikuttaa ene7 Koulutus ja neuvonta auttavat vähentämään energiankulutusta 23 kom1445a vaikuttaa Aurinkosuojaus vähentää jäähdytystarvetta 24 kom1445 vaikuttaa ene7 Rakennuskatsastukset auttavat energiansäästössä 25 kom1448 vaikuttaa ene5 Huonojen purkaminen vähentää rakennuskantaa 26 ene9 tekee relevantiksi kom1448 Huippukulutuksen hillintä on tärkeää 27 ene6 tekee relevantiksi kom1470 Puurakentaminen on tärkeää 28 ene6 kom1472 Rakennuksista puhuttaessa ihmisten hyvinvointi on tärkeää 29 ene9 kom1484 Sähkönkulutuksessa jäähdytys on myös tärkeää 30 kom1494 vaikuttaa pienhiukkaspäästöt Puunpoltto vaikuttaa pienhiukkaspäästöihin 31 ene9 tekee relevantiksi kom1504 Halpa sähkö ei kannusta sähkönsäästöön 32 ene7 tekee relevantiksi kom1511 Energiatieto rakennuksista on tärkeää 33 kom1525 vaikuttaa ene7 Lämpöpumput vähentävät energian ominaiskulutusta 34 kom1576 jos niin ei kom1445 Säätelykielto estää aurinkosuojapakon 35 kom1576 jos niin ei kom1424 Säätelykielto estää lämpölaskumääräykset 36 kom1576 jos niin ei kom1432 Säätelykielto estää katsastukset 37 ene12 tekee relevantiksi kom1470 Puurakentamiseen liittyy arvoja, jotka johtuvat sen vaikutuksista ihmisiin 38 ene13 tekee relevantiksi kom1472 Ihmisten hyvinvointi rakennuksiin liittyen on tärkeää.

Jaetun ymmärryksen analyysi

Minkätyyppiset asiat haluat nimineen (muut ovat tunnistenumerolla)?: Muuttuja Päätös Teko Väite Haluatko näyttää kiistellyt asiat nimineen?: Kyllä Ei Rajaa tiettyihin asioihin ja niiden relaatioihin listaamalla ID:t tähän muotoon c('ID1', 'ID2'): Haluatko nähdä myös taulukot?: En Kyllä + Näytä koodi- Piilota koodi #This is code Op_fi5642/ on page [[op_fi:Energiarenessanssi]] library(OpasnetUtils) library(ggplot2) library(igraph) library(RColorBrewer) ## Generic functions and data edgetype <- data.frame( Relation = c( "jos niin", "jos niin ei", "kuuluu valintajoukkoon", "tekee relevantiksi", "vaikuttaa", "on sama kuin", "omistaa tägin", "on" ), Color = c( "Green", "Red", "Brown", "Skyblue2", "Black", "White", "White", "White" ), Width = c(1, 1, 0.5, 1, 3, 1, 1, 1) ) edgetype$Color <- as.character(edgetype$Color) vertextype = data.frame( Type = c( "muuttuja", "päätös", "teko", "väite", "arvo", "oliotyyppi" ), Shape = c( "sphere", "rectangle", "square", "circle", "circle", "circle" ) ) vertextype$Shape <- as.character(vertextype$Shape) findtypes <- function( x, # vector with type data (possibly several per row) y # vector of unique types in the order of preference ) { temp <- apply(as.data.frame(y), MARGIN = 1, FUN = function(a) grep(a, x)) out <- rep(NA, length(x)) for(i in length(temp):1) { out[temp[[i]]] <- i } return(out) } 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(array(y), MARGIN = 1, FUN = function(a) grepl(a, x)) out <- apply(out, MARGIN = 1, FUN = any) } else { out <- rep(FALSE, length(x)) } return(out) } # Case data ene <- opbase.data("Op_fi5642", subset = "Energiarenessanssin asioita") # [[Energiarenessanssi]] rel <- opbase.data("Op_fi5642", subset = "Energiarenessanssin relaatiot") # [[Energiarenessanssi]] str <- opbase.data("Op_fi4646", subset = "Tavoitteet") # [[Helsingin strategiset energiatehokkuus- ja ilmastotavoitteet]] ohj <- opbase.data("Op_fi4647") # [[Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet]] objects.latest("Op_fi5339", code_name = "preprocessing") eji <- ejikysely kom <- ejikomm # ene: "Obs" "Aihe" "Asia" "Tyyppi" "Kuvaus" "Result" # rel: "Obs" "Subjekti" "Relaatio" "Voima" "Objekti" "Tarkenne" "Result" # str: "Obs" "Aineisto" "Sivunumero" "Jaenumero" "Osa-alue" "Tavoite" "Result" # ohj: "Obs" "Aineisto" "Sivunumero" # [4] "Osa-alue" "Toimenpide" "Relaatio" # [7] "Strategiatason tavoite" "Toimija" "Result" # eji: "Aihe" "Toimi" "Vaikutus" "Kannatus" "Puolesta" "Vastaan" "Ehdotus" # kom: "Row" "Time" "Comment" "Topic" "Note" ene$Obs <- paste("ene", ene$Obs, sep = "") rel$Obs <- paste("rel", rel$Obs, sep = "") str$Obs <- paste("str", str$Obs, sep = "") ohj$Obs <- paste("ohj", ohj$Obs, sep = "") eji$Obs <- paste("eji", 1:nrow(eji), sep = "") kom$Row <- paste("kom", kom$Row, sep = "") colnames(ene) <- c("AsiaID", "Aihe", "Asia", "Tyyppi", "Kuvaus", "Huom") colnames(rel) <- c("AsiaID", "Subjekti", "Relaatio", "Voima", "Objekti", "Tarkenne", "Kuvaus") colnames(str) <- c("AsiaID", "Huom", "Sivunumero", "Jaenumero", "Aihe", "Asia", "Kuvaus") colnames(ohj) <- c("AsiaID", "Kuvaus", "Sivunumero", "Aihe", "Asia", "Relaatio", "Tavoite", "Toimija", "Huom") colnames(eji) <- c("Aihe", "Asia", "Vaikutus", "Huom", "Puolesta", "Vastaan", "Kuvaus", "AsiaID") colnames(kom) <- c("AsiaID", "Aika", "Kuvaus", "Aihe", "Asia", "Tyyppi", "Huom") ene$Tyyppi <- "muuttuja" str$Tyyppi <- "arvo" ohj$Tyyppi <- "päätös" ohj$Relaatio <- NULL eji$Tyyppi <- "päätös" eji$Vaikutus <- NULL #> colnames(ene) #[1] "AsiaID" "Aihe" "Asia" "Tyyppi" "Kuvaus" "Huom" #> colnames(str) #[1] "AsiaID" "Huom" "Sivunumero" "Jaenumero" "Aihe" "Asia" "Kuvaus" #[8] "Tyyppi" #> colnames(ohj) #[1] "AsiaID" "Aineisto" "Sivunumero" "Aihe" "Asia" "Tavoite" "Toimija" #[8] "Huom" "Tyyppi" #> colnames(eji) #[1] "Aihe" "Asia" "Huom" "Puolesta" "Vastaan" "Kuvaus" "AsiaID" "Tyyppi" #> colnames(kom) #[1] "AsiaID" "Aika" "Kuvaus" "Aihe" "Asia" "Tyyppi" "Huom" # Temporary removals: str <- str[-c(3, 4)] ohj <- ohj[-c(3, 6, 7)] eji <- eji[-c(4, 5)] kom <- kom[-2] ene <- as.data.frame(lapply(ene, FUN = as.character)) str <- as.data.frame(lapply(str, FUN = as.character)) ohj <- as.data.frame(lapply(ohj, FUN = as.character)) eji <- as.data.frame(lapply(eji, FUN = as.character)) kom <- as.data.frame(lapply(kom, FUN = as.character)) dat <- rbind(ene, rbind(str, rbind(ohj, rbind(eji, kom) ) ) ) # Create full table with edges and vertices. jy <- merge(rel, dat, by.x = "Subjekti", by.y = "AsiaID") jy <- merge(jy, dat, by.x = "Objekti", by.y = "AsiaID") # colnames(jy): # [1] "Objekti" "Subjekti" "AsiaID" "Relaatio" "Voima" "Tarkenne" # [7] "Kuvaus.x" "Aihe.x" "Asia.x" "Tyyppi.x" "Kuvaus.y" "Huom.x" # [13] "Aihe.y" "Asia.y" "Tyyppi.y" "Kuvaus" "Huom.y" jy <- jy[c(9, 4, 5, 14, 8, 13, 11, 7, 16, 12, 6, 17, 10, 15, 2, 3, 1)] colnames(jy) <- c( "Subject", "Relation", "Strength", "Object", "Topic_s", "Topic_o", "Desc_s", "Desc_r", "Desc_o", "Note_s", "Note_r", "Note_o", "Type_s", "Type_o", "ID_s", "ID_r", "ID_o" ) for(i in 1:ncol(jy)) { if(is.factor(jy[[i]])) jy[[i]] <- as.character(jy[[i]]) } #Format edges jy$ecolor <- edgetype$Color[match(jy$Relation, edgetype$Relation)] jy$ewidth <- edgetype$Width[match(jy$Relation, edgetype$Relation)] jy$earrow.size <- 0.5 if(taulukot) oprint(jy) # Format vertices asnam <- c("Name", "Topic", "Desc", "Note", "Type", "ID") jy_asiat <- jy[c(1,5,7,10,13,15)] colnames(jy_asiat) <- asnam temp <- jy[c(4,6,9,12,14,17)] colnames(temp) <- asnam 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)] col <- colorRampPalette(brewer.pal(11, "RdYlGn"))(165) jy_asiat$Note[jy_asiat$Note == ""] <- 0 jy_asiat$Note <- as.numeric(jy_asiat$Note) jy_asiat$vframe.color <- col[83 + jy_asiat$Note] jy_asiat$vframe.color[jy_asiat$Type == "muuttuja"] <- "SkyBlue2" if(taulukot) oprint(jy_asiat) ######## Plot all nodes jy2 <- jy jy_asiat2 <- jy_asiat # Change selected names to IDs. jy2$Subject <- ifelse(findanytype(jy2$Type_s, sanalliset) | findanytype(jy2$Note_s, kiistat), jy2$Subject, jy2$ID_s) jy2$Object <- ifelse(findanytype(jy2$Type_o, sanalliset), jy2$Object, jy2$ID_o) jy_asiat2$Name <- ifelse(findanytype(jy_asiat2$Type, sanalliset), jy_asiat2$Name, jy_asiat2$ID) setdiff(c(jy2$Subject, jy2$Object), jy_asiat2$Name) jygraph <- graph.data.frame( jy2[c(1,4,2,3,5:ncol(jy2))], directed = TRUE, vertices = jy_asiat2 ) plot(jygraph, vertex.label.cex = 0.8, vertex.size = V(jygraph)$vsize, vertex.color = V(jygraph)$vframe.color, vertex.shape = V(jygraph)$vshape, vertex.frame.color = "Black", vertex.label.family = "Helvetica", edge.color = E(jygraph)$ecolor, edge.width = E(jygraph)$ewidth, edge.arrow.size = 0.5, layout = layout.fruchterman.reingold ) ##### Plot selected nodes jy3 <- jy[jy$ID_s %in% rajaus | jy$ID_o %in% rajaus , ] jygraph <- graph.data.frame( jy3[c(1,4,2,3,5:ncol(jy))], directed = TRUE, vertices = jy_asiat[jy_asiat$Name %in% unique(c(jy3$Subject, jy3$Object)) , ] ) plot(jygraph, vertex.label.cex = 0.8, vertex.size = V(jygraph)$vsize, vertex.color = V(jygraph)$vframe.color, vertex.shape = V(jygraph)$vshape, vertex.frame.color = "Black", vertex.label.family = "Helvetica", edge.color = E(jygraph)$ecolor, edge.width = E(jygraph)$ewidth, edge.arrow.size = 0.5, layout = layout.fruchterman.reingold ) cat("Onnistui\n")

Katso myös

• Helsingin energiapäätös 2015
• Helsingin strategiset energiatehokkuus- ja ilmastotavoitteet
• Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet
• op_en:Parsha Hakemus Suomen Akatemialle sisältäen mm. tämän arvioinnin toteuttamisen.
• Miten tieto sidotaan päätöksentekoon
• Jaettu ymmärrys
• Jaetun ymmärryksen menetelmä
• Ympäristötiedon foorumi: Helsinkiläisten energiakäänne – Kuinka energiankuluttajat muuttuvat energiapäättäjiksi? 5.10.2016 [1]
• Stadinilmasto: Ilmastoverkosto
• Helsingin parhaat energiatehokkuuskäytännöt -työryhmän loppuraportti 21.9.2011 [2]
• Energiarenessanssi_300916
• energiarenessanssi_muokattu
• Energiarenesanssi-mahdollisuudet ja haasteet
• Kestävä energia- ja ilmastopolitiikka ja uusiutuvien rooli Suomessa (KEIJU)
• Living lab bus [3]
• IsoRobasta ilmastokatu 2015 - kokeilualusta ilmastoystävällisille ratkaisuille
• Helsinki City Lab - Design Driven City

Kommentoi arviointia

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