Suomen liikennejärjestelmän kehittäminen 2017

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

Kysymys

Tähän arvioinnin pääkysymys. Katso lisäohjeita sivulta Arviointi.

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

Ketkä käyttävät raportin tuloksia ja mihin tarkoitukseen?

Osallistujat

Ketkä osallistuvat arvioinnin tekemiseen? Kenen tietoja tarvitaan, jotta arviointi onnistuu?

Rajaus

Miten arviointi rajataan ajallisesti, maantieteellisesti, kysmyksenasettelultaan jne?

Vaihtoehdot

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

Aikataulu

Mikä on arvioinnin aikataulu? Mikä on sen päätösprosessin aikataulu, jota arviointi tukee?

Vastaus

Tulokset

Arviointimallin keskeiset tulokset.

Päätelmät

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

Perustelut

Työn pohjana on lukuisia selvityksiä ja raportteja, joiden kytkennät tähän arviointiin pitäisi kuvata tarkemmin.

• Anne Bernerin ehdotus liikenneinfran rahoituksesta 19.1.2017 tiedote raportti kalvot
  • Liikenneverkkoyhtiökeskustelu Raportista käyty Otakantaa-keskustelu tallennettuna avoimena datana.
  • Bernerin liikenneuudistusuutisointi Yle 2017 Ylen uutisointi liittyen liikenneverkkouudistukseen.
• "Kolmen viisaan visiot": Työryhmä Esko Ahon johdolla selvittämässä liikennejärjestelmää syyskuusta 2016 huhtikuuhun 2017.
  • Tiedote 5.9.2016 asettamispäätös
  • Rakennusteollisuus ry:n tiedote tästä sekä Liikenneinfrastruktuuri 2040 -tutkimuksesta [1]
• VTT-vetoinen tutkimus Liikenneinfrastruktuuri 2040 (julkaistu 16.1.2017)
  • VTT:n tiedote 16.1.2017 ja raportti, Rakennusteollisuus ry:n tiedote
  • Esittelykalvot
• Liikenne ja viestintä digitaalisessa Suomessa 2020: Opasnetissä kirjoitettu ministeriön tulevaisuuskatsaus vuodelta 2014.

Uutisoinnin analyysi

Ajo 29.1.2017 [2]

+ Näytä koodi- Piilota koodi # This is code / on page [[Op_fi:Suomen liikennejärjestelmä kehittäminen 2017]] library(OpasnetUtils) library(ggplot2) library(plyr) dat <- opasnet.data("4/47/Bernerin_liikenneuudistusuutisointi_Yle_2017.txt", wiki = "opasnet_fi")#, sep = "\n")#encode = "UTF-8") dat <- unlist(strsplit(dat, split = "\r\n")) dat <- dat[!dat %in% c( "Pääuutiset", "Lue seuraavaksi", "Kirjaudu", "Valikko", "Lue myös:", "Loading…", ".", "" )] links <- grep("http://", dat) titl <- substr(sort(dat[links+1]), 1, 20) titl[duplicated(titl)] d <- data.frame( Linkki = dat[links], Otsikko = dat[links+1], Ingressi = dat[links+2], Aika = dat[links+3], stringsAsFactors = FALSE ) d$Aika <- substring(d$Aika, nchar(d$Aika)-19) d$Aika <- as.POSIXct(strptime(d$Aika, format = "%d.%m.%Y klo %H:%M")) lop <- c(links[2:length(links)], length(dat)) - 1 temp <- paste("[", 1:length(dat) , "] ", dat, sep = "") d$Uutinen <- sapply(1:length(links), FUN = function(x) {paste(temp[(links[x]+4):lop[x]], collapse = " ")}) luok <- opbase.data( "Op_fi5698", subset = "Uutisten jaottelut tietotyön tyyppien mukaan" ) luok$Tyyppi <- as.character(luok$Tyyppi) head(luok$Tyyppi) d <- cbind(d, luok) #d$Tyyppi[d$Result == " (ehdotuksen vaikutukset)"] <- "Asia, ehdotuksen vaikutukset" d$Pituus <- nchar(d$Uutinen) d <- merge(d, aggregate(d$Pituus, by = d["Tyyppi"], FUN = sum)) colnames(d)[colnames(d) == "x"] <- "Kokpituus" d <- merge(d, aggregate(d$Pituus, by = d["Tyyppi"], FUN = length)) colnames(d)[colnames(d) == "x"] <- "Kokmäärä" ggplot(d[!d$Tyyppi %in% c("Ei liity", "Info") & d$Aika > as.POSIXct("2017-01-16") , ], aes(x = Aika, colour = Tyyppi))+ geom_step(aes(Kokpituus = Kokpituus, y = ..y.. * Kokpituus/2000), stat = "ecdf", size = 2)+ labs(title = "Liikennejärjestelmäehdotuksen uutisointi tietotyypeittäin", y = "Sivua tekstiä")+ theme_gray(base_size = 24) ggplot(d[!d$Tyyppi %in% c("Ei liity", "Info") & d$Aika > as.POSIXct("2017-01-16") , ], aes(x = Aika, colour = Tyyppi))+ geom_step(aes(Kokmäärä = Kokmäärä, y = ..y.. * Kokmäärä), stat = "ecdf", size=2)+ labs(title = "Liikennejärjestelmäehdotuksen uutisointi tietotyypeittäin", y = "Kpl uutisia")+ theme_gray(base_size = 24)

Uutisten jaottelut tietotyön tyyppien mukaan(-)

Obs	Tyyppi	Lisätieto
1	Työ
2	Työ
3	Työ
4	Työ
5	Asia	(työ)
6	Työ
7	Työ
8	Työ
9	Työ	(asia)
10	Työ
11	Työ
12	Asia	(ehdotuksen vaikutukset)
13	Asia
14	Asia
15	Ei liity
16	Työ
17	Asia	(ehdotuksen vaikutukset)
18	Asia
19	Asia	(ehdotuksen vaikutukset)
20	Asia
21	Asia
22	Asia
23	Asia
24	Asia	(työ)
25	Asia	autovero
26	Asia
27	Asia
28	Asia
29	Asia
30	Ei liity
31	Asia
32	Menetelmä
33	Ei liity
34	Työ	(futuuri)
35	Työ
36	Osaajat
37	Menetelmä
38	Työ
39	Asia
40	Asia	(ehdotuksen vaikutukset)
41	Asia
42	Asia
43	Työ	(asia)
44	Asia
45	Asia
46	Asia	(työ)
47	Työ	(futuuri)
48	Työ
49	Asia
50	Työ
51	Työ
52	Työ
53	Info	(koskee asian esittelyä eikä asiaa)
54	Asia
55	Asia
56	Asia	(työ)
57	Asia
58	Osaajat
59	Ei liity
60	Asia
61	Asia
62	Asia
63	Asia
64	Asia
65	Info
66	Asia
67	Työ	(futuuri)
68	Työ	(futuuri)
69	Ei liity

Katso myös

Muita tärkeitä, aiheeseen liittyviä sivuja ja linkkejä.

Kommentoi arviointia

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