Ero sivun ”Energiarenessanssi” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(→‎Jaetun ymmärryksen analyysi: tehtiin koodi muokatulle t2b-taululle Energiarenessanssin asiat)
Rivi 356: Rivi 356:
# Case data
# 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]]
ohj <- opbase.data("Op_fi4647") # [[Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet]]


objects.latest("Op_fi5339", code_name = "preprocessing")
# ohj: "Obs"       "Aineisto"               "Sivunumero"           
eji <- ejikysely
#      [4] "Osa-alue"              "Toimenpide"            "Relaatio"             
kom <- ejikomm
#      [7] "Strategiatason tavoite" "Toimija"                "Result"


jy <- data.frame(
jy <- data.frame(
Rivi 393: Rivi 390:
   Kuvaus = ""
   Kuvaus = ""
))
))
str <- opbase.data("Op_fi4646", subset = "Tavoitteet") # [[Helsingin strategiset energiatehokkuus- ja ilmastotavoitteet]]
# str: "Obs"        "Aineisto"  "Sivunumero" "Jaenumero"  "Osa-alue"  "Tavoite"    "Result" 


jy <- rbind(jy, data.frame(
jy <- rbind(jy, data.frame(
Rivi 412: Rivi 413:
colnames(robo)[5] <- "Kuvaus"
colnames(robo)[5] <- "Kuvaus"
jy <- rbind(jy, robo)
jy <- rbind(jy, robo)
colnames(jy)


################### Edited until here
##### Energia ja ilmasto -kysely


asiat <- opbase.data("Op_fi5339", subset = "Asiat")[-1] # [[Keskipitkän aikavälin ilmastopoliittinen suunnitelma]]
ene <- opbase.data("Op_fi5642", subset = "Energiarenessanssin asioita")   # [[Energiarenessanssi]]
asiat <- asiat[!duplicated(asiat$Asia) , ]
rel <- opbase.data("Op_fi5642", subset = "Energiarenessanssin relaatiot") # [[Energiarenessanssi]]
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, 2, 1)]
colnames(jy) <- c(
  "Subject",
  "Relation",
  "Strength",
  "Object",
  "Note_s",
  "Note_r",
  "Note_o",
  "Type_s",
  "Type_o",
  "ID_s",
  "ID_o"
)
 
for(i in 1:ncol(jy)) {
  if(is.factor(jy[[i]])) jy[[i]] <- as.character(jy[[i]])
}
 
# Remove redundant relations
jy <- jy[!jy$Relation %in% c("on sama kuin", "omistaa tägin", "on") , ]
jy <- jy[!jy$Type_o %in% c("oliotyyppi") , ]
 
oprint(jy)


objects.latest("Op_fi5339", code_name = "preprocessing")
eji <- ejikysely
kom <- ejikomm


# ene: "Obs"    "Aihe"  "Asia"  "Tyyppi" "Kuvaus" "Result"
# ene: "Obs"    "Aihe"  "Asia"  "Tyyppi" "Kuvaus" "Result"
# rel: "Obs"      "Subjekti" "Relaatio" "Voima"    "Objekti"  "Tarkenne" "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"  
# eji: "Aihe"    "Toimi"    "Vaikutus" "Kannatus" "Puolesta" "Vastaan"  "Ehdotus"  
# kom: "Row"    "Time"    "Comment" "Topic"  "Note"
# kom: "Row"    "Time"    "Comment" "Topic"  "Note"
Rivi 468: Rivi 430:
ene$Obs <- paste("ene", ene$Obs, sep = "")
ene$Obs <- paste("ene", ene$Obs, sep = "")
rel$Obs <- paste("rel", rel$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 = "")
eji$Obs <- paste("eji", 1:nrow(eji), sep = "")
kom$Row <- paste("kom", kom$Row, sep = "")
kom$Row <- paste("kom", kom$Row, sep = "")
Rivi 475: Rivi 435:
colnames(ene) <- c("AsiaID", "Aihe", "Asia", "Tyyppi", "Kuvaus", "Huom")
colnames(ene) <- c("AsiaID", "Aihe", "Asia", "Tyyppi", "Kuvaus", "Huom")
colnames(rel) <- c("AsiaID", "Subjekti", "Relaatio", "Voima", "Objekti", "Tarkenne", "Kuvaus")
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(eji) <- c("Aihe", "Asia", "Vaikutus", "Huom", "Puolesta", "Vastaan", "Kuvaus", "AsiaID")
colnames(kom) <- c("AsiaID", "Aika", "Kuvaus", "Aihe", "Asia", "Tyyppi", "Huom")
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$Tyyppi <- "päätös"
eji$Vaikutus <- NULL
eji$Vaikutus <- NULL
Rivi 501: Rivi 454:
jy <- merge(rel, dat, by.x = "Subjekti", by.y = "AsiaID")
jy <- merge(rel, dat, by.x = "Subjekti", by.y = "AsiaID")
jy <- merge(jy, dat, by.x = "Objekti", by.y = "AsiaID")
jy <- merge(jy, dat, by.x = "Objekti", by.y = "AsiaID")
 
oprint(jy)
if(FALSE) {
# colnames(jy):  
# colnames(jy):  
# [1] "Objekti" "Subjekti" "AsiaID" "Relaatio" "Voima" "Tarkenne"  
# [1] "Objekti" "Subjekti" "AsiaID" "Relaatio" "Voima" "Tarkenne"  
Rivi 528: Rivi 482:
   "ID_o"
   "ID_o"
)
)
write.csv(jy, file = "//cesium/jtue$/_Documents/enejy.csv")
eneou <- rbind(data.frame(
  Subjekti = ene$Asia,
  Predikaatti = "tägi",
  Objekti = ene$Tyyppi,
  Tarkenne = "",
  Kuvaus = paste(ene$Kuvaus, ene$Result, sep = " ")
),
data.frame(
  Subjekti = ene$Asia,
  Predikaatti = "kuuluu joukkoon",
  Objekti = ene$Aihe,
  Tarkenne = "",
  Kuvaus = ""
))
write.csv(eneou, file = "//cesium/jtue$/_Documents/eneou.csv")


#Format edges
#Format edges
Rivi 621: Rivi 594:
     layout = layout.fruchterman.reingold
     layout = layout.fruchterman.reingold
)
)
}
</rcode>
</rcode>


Versio 28. marraskuuta 2016 kello 19.14



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ä. Alla olevista lähteistä on tarkoitus koota suoraan tai välivaiheiden kautta yksi yhteinen energia- ja ilmastokuvaus jaetun ymmärryksen menetelmän mukaisena rdf-taulukkona, jota voidaan pilkkoa ja kuvata automaattisesti kaaviona. Joistakin taulukoiden riveistä tulee useita rivejä yhteiseen taulukkoon.

Tiedosto:Energiajailmastotekstit.txt

  • Suorasanaista tekstiä valmiista toimenpide-ehdotuksista osittain rakenteisena
    • Toimepide-ehdotukset: kuvaus, puolesta, vastaan
    • Kommentit: timestamp, kommentti
  • Suorasanaista tekstiä yleisön esittämistä toimenpide-ehdotuksista
    • Kommentit: timestamp, kommentti
  • Tuote: ejikysely ja ejikomm

Nettikyselyn päätösehdotukset

Kyselyn kommenttien tiedot

Koodi Op_en5339/preprocessing on page Keskipitkän aikavälin ilmastopolitiikan suunnitelma

  • Lähtödata: Tiedosto:Energiajailmastotekstit.txt
  • Tuote: data.framet ejikysely ja ejikomm

ejikysely

  • data.frame tuotettu koodilla Op_en5339/preprocessing
  • Sisältää ehdotetut toimenpidevaihtoehdot ja niiden yleisöäänestystuloksen
  • Sarakkeet: row.names, Aihe, Toimi (lyhyt nimi), Vaikutus (tyhjä sarake), Kannatus, Puolesta, Vastaan, Ehdotus (pitkä kuvaus)
  • Tuotteen sarakkeet:
    • Subjekti: Toimi; Relaatio: "tägi"; Objekti: "päätös"; Tarkenne: ""; Kuvaus: paste(Ehdotus, "Kannatus:", Puolesta, ",", Vastaan, sep = "")
    • Subjekti: Toimi; Relaatio: "vaikuttaa"; Objekti: Aihe, Tarkenne: ""; Kuvaus: "".

ejikomm

  • data.frame tuotettu koodilla Op_en5339/preprocessing
  • Sisältää kansalaisten kommentit toimenpide-ehdotuksiin (ei kansalaisten omia toimenpide-ehdotuksia)
  • Sarakkeet: Row, Time, Comment (pitkä kuvaus), Topic (lyhyt kuvaus tai aihe), Name (lyhyt nimi), Type (oliotyyppi), Note (onko kiistelty)
  • Tuotteen sarakkeet:
    • Subjekti: Name; Relaatio: "tägi"; Objekti: Type; Tarkenne: ""; Kuvaus: Comment
    • Subjekti: Topic; Relaatio: "tekee relevantiksi"; Objekti: Name; Tarkenne: ""; Kuvaus: ""

Liikenteeseen liittyvät toimenpide-ehdotukset energia- ja ilmatostrategian luonnoksessa

Energia ja ilmasto 23.8.2016

Asiat

Relaatiot

Koodi Op_fi5339/ sivulla Keskipitkän aikavälin ilmastopolitiikan suunnitelma#Jaetun ymmärryksen kuvaus

  • Lähtödata: t2b:t Asiat ja Relaatiot
  • Tuote: igrapheja. Lisäksi rivejä jaetun ymmärryksen taulukkoon. Sarakkeet:
    • Subjekti: Subject; Relaatio: Relaatio; Objekti: Object; Tarkenne: Strength; Kuvaus: Note_r
    • Subjekti: Subject; Relaatio: "tägi"; Objekti: Type_s; Tarkenne: ""; Kuvaus: Note_s
    • Subjekti: Object; Relaatio: "tägi"; Objekti: Type_o; Tarkenne: ""; Kuvaus: Note_o

Robottiautot ja matkojenyhdistely

Ohjelmatason tavoitteenmäärittelyt

  • prettytable sivulta Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet#Ohjelmatason tavoitteet
  • Sarakkeet: Nro, Aineisto (käytetty aineisto), Sivunumero (aineiston sivu), Osa-alue (aihealue), Tavoite (ilmastopoliittinen tavoite), Relaatio (käytännössä "tukee"), Strategiatason tavoite (ylätason tavoite)
  • Tuotteen sarakkeet:
    • Subjekti: Tavoite; Relaatio: "tukee"; Objekti: Strategiatason tavoite; Tarkenne: [viite;paste(Aineisto, Sivunumero;;]; Kuvaus: ""
    • Subjekti: Osa-alue; Relaatio: "tekee relevantiksi"; Objekti: Tavoite; Tarkenne:"", Kuvaus:""
    • Subjekti: Tavoite; Relaatio: "tägi"; Objekti: "tavoite"; Tarkenne: "", Kuvaus: ""

Ilmastopäästöt

Kustannukset

Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet

  • t2b sivulta Helsingin ohjelmalliset energiatehokkuus- ja ilmastotoimenpiteet ja -tavoitteet#Ohjelmatason toimenpiteet
  • Obs, Aineisto (käytetty aineisto), Sivunumero (aineiston sivunumero), Osa-alue (Aihe), Toimenpide (nimi toimenpiteelle, päätöstyypin olio), Relaatio (yleensä "tukee"), Strategiatason tavoite (ylätason tavoite tai tavoitteet johon liittyy), Toimija (kuka voi päättää asiasta), Vaikutus (Aihealueet joihin vaikuttaa)
  • Tuotteen sarakkeet:
    • Subjekti: Toimenpide; Relaatio: "tukee"; Objekti: Strategiatason tavoite; Tarkenne: ["viite";paste(Aineisto, Sivunumero);;];Kuvaus:""
    • Subjekti: Toimenpide; Relaatio: "toimija"; Objekti: Toimija; Tarkenne: "", Kuvaus: ""
    • Subjekti: Toimenpide; Relaatio: "tägi"; Objekti: "päätös";;
    • Subjekti: Toimenpide; Relaatio: "kuuluu joukkoon"; Objekti: Vaikutus ⇤--#: . Onko tämä oikea relaatio, vai pikemmin "tekee relevantiksi" (subjekti ja objekti toisin päin)? --Jouni Tuomisto (keskustelu) 27. marraskuuta 2016 kello 15.42 (UTC) (type: truth; paradigms: science: attack)

Tavoitteet

  • t2b sivulla Helsingin strategiset energiatehokkuus- ja ilmastotavoitteet#Vastaus
  • Sarakkeet Obs, Aineisto (käytetty aineisto), Sivunumero (aineiston sivu), Jaenumero (mistä tulevat jakeet?); Osa-alue (aihe), Tavoite (lyhyt nimi), Kuvaus (pitkä kuvaus)
  • Tuotteen sarakkeet:
    • Subjekti: Tavoite; Relaatio: "kuuluu joukkoon"; Objekti: Osa-alue; Tarkenne: ["viite";paste(Aineisto, Sivunumero);; ./ "jae";Jaenumero;;]; Kuvaus: ""
    • Subjekti: Tavoite; Relaatio: "tägi"; Objekti: "tavoite"; Tarkenne: "", Kuvaus: Kuvaus

Helsinki energy decision 2015

  • Muuttujat kuvasta [1]

Energiarenessanssin asioita

Energiarenessanssin relaatiot

Koodi Op_fi5642/ on page Energiarenessanssi



Jaetun ymmärryksen analyysi

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

Rajaa tiettyihin asioihin ja niiden relaatioihin listaamalla ID:t tähän muotoon c('ID1', 'ID2'):

Haluatko nähdä myös taulukot?:

+ Näytä koodi

Katso myös

Lähteet


Kommentoi arviointia

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

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Energiarenessanssi&oldid=33435”